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DIE GEWINNER 


Jetzt stehen sie fest, die Gewinner aus unserer Frage- 
bogenaktion 1987/88. 

- Fortuna hat unsere Leserin Heike Merschbrok aus dem 
badischen Vörstetten für den ersten Preis auserwählt. 
Ihr Wunsch nach einem Commodore PCT mit Bild- 
schirm und Zubehör geht somit in Erfüllung. Sie wird 
den Computer in den nächsten Tagen in der Redak- 
tion der COMMODORE WELT in München über- 
reicht bekommen. 


Das Echo unserer Fragebogenaktion war so enorm, daß 
eine zusätzliche Arbeitskraft eingestellt werden mußte, 
um den Posteingang überhaupt zu bewältigen. Auch 
die auswertende Crew wurde von dem Tatendrang un- 
serer Leser überrascht. Wir danken Allen, die sich die 
Mühe gemacht haben, den Fragebogen an uns zurück- 
zusenden. Sie geben uns so die Möglichkeit, die 
COMMODORE WELT an Ihre Wünsche noch besser 
anzupassen. 

Alle anderen Gewinner wurden bereits benachrichtigt. 


Ihre C16/P4-Crew 
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WISSENSWERTES 


Kollege Chip kommt 

gleich 

Computer in Forschung 

und Wissenschaft 
abSeite 4 


Drucken mit jedem 
Modell 
Mit nur zehn Mark sind 
Sie dabei: Dies kostet 
Sie ein Centronics-Inter- 
face für den C16/C116 
oder den Plus4 

ab Seite 9 


Aus Zwei mach Acht 
Mit einem Schiebe- 
register werden aus zwei 
Datenleitungen derer 
acht 

ab Seite 12 


Messebericht Hobby- 


tronic 
Kleine Show ganz groß, 
die Dortmunder Hobby- 
tronic und Computer- 
schau 1988 

ab Seite 14 


Lernen am Programm 
Programmlisting, gut 
kommentiert, können 
eine Fundgrube für 
Anfänger sein 

ab Seite 15 


Die Seite-16 Themen 
Autostart mit zwei 
Zeilen — BASIC-Pro- 
gramme auf Trab ge- 
bracht — Geschwindig- ' 
keit ist keine Hexerei — 
Zeit, wer hat die schon — 
Programme langsamer 
mit GOTO und GOSUB — 
Geschwindigkeitssteige- 
rung im BASIC — Strings 
als Zeichensatzhilfe — 
Labels statt GOTO und 
GOSUB — SEQ-Files in 
Programme umwandeln 
ab Seite 18 


Rund um den C16/Plus4 


Neue Software- und 
Hardware-Tips zu den 
Commocdore-Rechnern — 
Epromplatine — 64 K- 
Byte-RAM-Erweiterung 
ab Seite 21 


Zeichensatzanpassung 
Unsere Zeichensatzpro- 
gramme neu überarbeitet. 
Statt vieler Einzelpro- 
gramme nur mehr zwei 
Teilprogramme. Als Er- 
gänzung ist nun auch die 
Ausgabe mit dem Plus4 
über Centronic möglich 
ab Seite 22 


SERIE &REPORT 


Sprachengewirr wie 

zu Babylon 

Programmiersprachen 

zur Auswahl 

Teil 1 von Ada bis EOL 
ab Seite 32 


Austrospeed Compiler 
Plus4 
Wenn schon der Compu- 
ter nicht schneller ge- 
macht werden kann und 
auch Maschinensprache- 
Befehle böhmische Dörfer 
sind, muß eben das Pro- 
gramm beschleunigt 
werden 

ab Seite 44 


Börse 
Kleinanzeigen, 
gesucht und gefunden 
ab Seite 108 


Viren im System 
Mittel und Wege zur 
Abwehr dieser 
Computerschädlinge 

ab Seite 138 


Nobody is perfect 
Niemand ist gegen Fehler 
gefeit, die sich in den 
Programmen festsetzen 
ab Seite 142 


Bastard — echt kriminell 


Computerkriminalität 
im Fernsehen 
ab Seite 142 


Centronics Demo 
Demonstrationspro- 
gramm zur Funktions- 
weise einer Datenüber- 
tragung 

ab Seite 13 
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Screen-Keyboard 
Zeichensatzanpassung 
für Bildschirm und 
Tastatur 

ab Seite 25 


Drucker-Anpassung 
Centronics auch mit der 
eingebauten Software — 
Commodore-, IBM- oder 
Epson-Drucker zur 
Auswahl 

ab Seite 27 


Zeichensatz-Kompri- 
mierung 
Anpassung an den ver- 
wendeten Zeichensatz 

ab Seite 29 


Mega-Tool 

31 neue Befehle für die 

3.5-Reihe der 

Commodore-Computer 
ab Seite 45 


Grafix 3D 
Bewegte dreidimensio- 
nale Grafik erzeugen ist 
jetzt auch für Sie 
möglich 

ab Seite 50 


Botanik 16 
Testen Sie Ihre Kennt- 
nisse selbst 


ab Seite 83 
Kasino 
Vier Glücksspiele 

ab Seite 88 


Interpol-Beschattung 
Einstellungstest bei 
Interpol — eine harte 
Nuß 

ab Seite 95 


Merkur 
Geldspielautomaten- 
Simulation auf Ihrem 
Rechner 

ab Seite 100 


Checksummer 
Kontrollierte Eingabe 
ab Seite 110 


Manager 16 
Wirtschaftssimulations- 
spiel: Werden Sie hoch- 
bezahlter Manager 

ab Seite 114 


Hires-Hardcopy 
Ausdrucke des Grafik- 
bildschirms 

ab Seite 136 


HIGHSCORE 


Das Spiele-Magazin 
Das aktuelle Spiele- 
magazin finden Sie 

ab Seite 65 
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Vengeance Seite IX 
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BREPORT 


COMPUTER IN DER FORSCHUNG 


Kollege Chip 


Computer greifen in der Arbeitswelt immer 
mehr um sich. Die Rede ist vom Jobkiller. Das Elek- 
tronenhirn kann auch hilfreicher Kollege sein. 
Auch wenn man auf Schritt und Tritt die Rechner 
sieht, im Supermarkt oder in der Arztpraxis: Was ge- 
nau damit gemacht wird, weiß nur der Eingeweih- 
te. Das Bild von der Chip-Revolution, vor der sich 
jeder so fürchtet, stimmt nicht mehr. 


Für Computeranwender, 
die wissen wollen, ob sie 
ihre Computer-Erfah- 
rung auch im Arbeitsle- 
ben gebrauchen können, 
ist ein Blick über den 
Zaun der eigenen Umge- 
bung sinnvoll. Steht es 
dafür, seine Zeit mit 
Pascal und C zu vertun, 
oder werden die Rech- 
ner in den Betrieben 
nicht ohnehin mit einer 
Software ausgestattet, 
die den Benutzer dazu 
degradiert, stupide auf 
Knöpfe zu drücken? 
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Bleibt vom einmal Er- 
lernten nur das Wissen, 
was ein Cursor und eine 
Return-Taste ist? Dies 
waren Fragen, die ich 
mit einem Besuch im 
Toxikologie-Labor der 
GSF (Gesellschaft für 
Strahlenforschung und 
Umwelt) in München klä- 
ren wollte. 


UMWELT-— 
GRUND GENUG ZUR 
FORSCHUNG 


Die GSF gilt als eine der 


kommitgleich 


größten und angesehen- 
sten Forschunsgsinstitute 
der Bundesrepublik. Die 
Sorge um die Umwelt 
steht im Vordergrund, 
egal, ob es aktuelle Pro- 
bleme sind wie etwa der 
Reaktorunfall von 
Tschernobyl oder das 
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AIDS-Virus, oder ob es 
längerfristige Aufgaben 
zu lösen gilt. 

Die zunehmende Ver- 
schmutzung von Luft, 
Wasser und Boden stehen 
an erster Stelle. Da diese 
Umweltprobleme vorwie- 
gend von Giften hervor- 
gerufen werden, galt un- 
ser Besuch dem Labor 
für Toxikologie. Hier 
steht die Erforschung von 
Substanzen und der ih- 
nen eigenen Wirkungen 
im Vordergrund. 

Dabei ist es zunächst gar 


nicht so wichtig, ein Mit- 
tel gegen das Übel zu 
finden, manchmal ist dies 
ohnehin nicht möglich. 
Vorrang hat die Grundla- 
genforschung über den 
Stoff und die Festlegung 
von vertretbaren Höchst- 
werten. Mit anderen Wor- 
ten: Wie weit ist letztlich 
der Mensch damit belast- 
bar, oder verbietet sich 
der Umgang mit derarti- 
gen Substanzen von vorn- 
herein? 

Erst dann kommt die 
Pharmakologie, die Arz- 
neimittelkunde, zum 
Zuge. Kein finanzieller 
Ertrag also, sondern Er- 
forschung und Kontrolle 
der Umwelt. 


EDV — 
START MIT DER 
TEXTVERARBEITUNG 


Welche Rolle spielt der 
Computer in der For- 
schung der GSF? Günter 
Strobl, Chemiker, gab 
Auskünft über das Labor 
und sein Forschungspro- 
jekt. Die erste Überra- 
schung war, daß das Re- 
chenzentrum der GSF 
kaum eine Rolle spielt. 
Nicht etwa, weil die An- 
wendungen zu unwichtig 
wären, ganz im Gegen- 
teil. 

Der Trend hat sich inner- 
halb weniger Jahre ge- 
wandelt. Bislang war es 
ja so, daß jede For- 
schungsgemeinschaft auf 


Günter Strobl (links) und 
Gert Seidel im Gespräch 


ein gemeinsam benutztes 
Rechenzentrum zugriff. 
War es einmal eine allge- 
meine Vorstellung, dafs 
eine Zentraleinheit meh- 
rere Terminals versorgt, 
so haben sich die Ansprü- 
che gewandelt. Glückli- 
cherweise kam es noch 
nicht zur Endausbaustu- 
fe eines solchen Netz- 
werkes. Heute sind,nicht 
nur in der GSF, Indivi- 
dualrechner angesagt, 
eben das, was man mit 
der Wortschöpfung PC 
meinte. 
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Unser Blick auf die Aus- 
stattung in den Labors 
fiel zuerst auf einige 
Wang-Rechner, die spe- 
ziell für die Textverarbei- 
tung vernetzt wurden. 
Arbeitsberichte, Doktor- 
arbeiten und jede Korres- 
pondenz wird mit diesem 
Verbund erledigt. Daß 
man trotzdem nicht in 
Saus und Braus lebt, be- 
weist die Tatsache, daß 
für die fünf Terminals nur 
ein Drucker vorhanden 
ist. 

Überhaupt sind Compu- 
ter trotz ihrer Bedeutung 
relativ neue Kollegen in 
der Forschungsgemein- 
schaft. Erst vor einem 
Jahr haben die Wang-Ge- 
räte Gesellschaft bekom- 
men. IBM heißt nun die 
Devise und als Superstar 
darf neuerdings ein Wyse 
AT mit 80386-Prozessor 
seinen Dienst verrichten. 
So glaubte ich jedenfalls, 
bis mich Günter Strobl 
auf den Denkfeher 
hinwies. 


GETARNTE 
COMPUTER 


Wie fast alle Außenste- 
henden habe auch ich 
mich von Äußerlichkei- 
ten beeindrucken lassen. 
Ich saß lange Zeit neben 
einem gerade beschäftig- 
ten Rechner, ohne etwas 
davon zu ahnen. Es han- 
delte sich um ein HPLC- 
Gerät und wurde von 


Wenig Tasten und aufwen- 
dige Technik 


mir deshalb nicht als 
Rechner erkannt, weil 

die typische alphanume- 
rische Tastatur fehlte. 
Zweckgebunden sorgt 

hier ein Standardprozessor 
für Steuerung und Aus- 
wertung. Ein fest installier- 
tes Programm läßt nur 

die Eingabe einiger Para- 
meter, etwa die Ver- 
suchszeit, zu. HPLC 

heifit dabei nichts ande- 
res als Hochdruck-Flüs- 
sigkeits-Chromatograph 
(High Performance Li- 
Quid Chromatograph). 


Grob gesagt geht es dar- 
um, Substanzen in gering- 
ster Menge sowohl quan- 
titativ oder auch qualita- 
tiv zu bestimmen. 

Soweit mein Laienver- 
stand begriff, werden 
hierzu die Moleküle über 
eine bestimmte Wegstrek- 
ke in einem flüssigen Me- 
dium transportiert. Für 
die Auswertung gibt eine 
gezackte Linie Auskunft, 
die sich wie eine Gebirgs- 
silhouette darstellt. 
Jeder einzelne Berg, rich- 
tig als Peak bezeichnet, 
läßt sich in Höhe und 
Fläche berechnen. Ent- 
weder gibt das Diagramm 


Wer nun aber glaubt, das 
Ganze sei ebenso einfach 
zu bedienen wie ein 
Videorekorder, der soll- 
te sich das Handbuch an- 
schauen oder es auch nur 
abwiegen. Auch wenige 
Tasten können für viel 
Verwirrung sorgen, und 
die Liste dessen, was 
falsch gemacht werden 
kann, ist ellenlang. 

Trotz meiner Anerken- 
nung für derartige Arbei- 
ten galt mein Interesse 
dem Wyse-AT, an dem 
Chemiker Strobl schon 
bei meiner Ankunft arbei- 
tete. Da auch in den For- 
schungslabors das Geld 


kül hat ein bestimmtes 
Aussehen, eine plastische, 
dreidimensionale Symme- 
trie. Dabei sagen gleiche 
Bruttoformeln und glei- 
ches Molekulargewicht 
noch lange nicht aus, daß 
auch die Strukturformel 
gleich ist. 

Isomere nennt man der- 
artige Täuschungen der 
Natur, die auf den ersten 
Blick zwar identisch schei- 
nen, trotzdem aber ande- 
re chemische und physi- 
kalische Eigenschaften 
haben. 

Es kommt also auf die 
Symmetrie an, und hier 
setzt die Arbeit von Gün- 


bei bekannten Stoffen 
Hinweise auf die Konzen- 
tration der Substanz in 
Lösung, oder es läßt sich 
im Vergleich mit bekann- 
ten Standardsubstanzen 
ermitteln, um welchen 
Stoff es sich handelt. 

Ein recht komplexes Auf- 
gabenfeld für einen Rech- 
ner, auch wenn das Äuße- 
re der Tastatur täuscht. 
So mancher Homecom- 
puter sieht leistungsfähi- 
ger aus als das, was sich 
da unter einer billigen 
Folientastatur verbirgt. 


nicht reichlich fließt, 
mußte für den leistungs- 
fähigen Rechner zunächst 
ein konkreter Bedarf, ei- 
ne Anwendung, nachge- 
wiesen werden. Daran 
mangelt es allerdings nicht. 


DREIDIMENSIONALES 
MOLEKULWUNDER 
IM AT 


Der Chemiker brütet über 
molekulare Wechselwir- 
kungen. Das Problem ist 
— wie immer — schnell 
beschrieben: Jedes Mole- 


ter Strobl ein. Sein Werk- 
zeug: Ein Wyse-AT mit 
großer Rechenleistung 
und — eine Stereobrille. 
Sie haben richtig gelesen, 
es handelt sich um das 
altbekannte Verfahren, 
mit dem ein dreidimensio- 
naler Effekt erzeugt wird. 
Die Farben Rot und 
Grün werden getrennt 
auf den Bildschirm ausge- 
geben und knapp neben- 
einander plaziert. 

Eine entsprechend einge- 
färbte Brille kann das 
Auge, in erster Linie aber 


ZREPOFT BREI INNE 


Bei der Computer- 
anwendung in der For- 
schung geht der Trend 

weg vom zentralen 
Terminal, hin zur indi- 
viduellen Anwendung. 
Nicht vorhanden oder 
praktisch unbezahlbar ist 
die Software. 
Programmierer in der 
Forschung — ein Beruf 
mit Zukunft. 


das Gehirn, täuschen und 
erzielt einen dreidimen- 
sionalen Eindruck. 

Auf dem Sektor der Com- 
puterspiele gibt es einige 


derartige Versuche, und 
im Kino oder Männerma- 
gazinen haben Sie sicher 
schon Ähnliches gesehen. 
Falls es sich dabei um Bil- 
der mit Jayne Mansfield 
handelte, wissen Sie, wie 
leicht sich das menschli- 
che Gehirn von der Plasti- 
zität überzeugen läßt. 
Ganz so vergnüglich geht 
es in der GSF allerdings 
nicht zu. Trotz guter 
Hardware lassen sich im- 
mer noch keine sehr gro- 
ßen Moleküle verarbeiten, 
aber vorerst gibt es auch 
mit kleineren Bildern ge- 
nug zu tun. Aus der Er- 
scheinungsform lassen 
sich Rückschlüsse auf die 


Wirkung der Substanzen 
ziehen. 


LIGHTPEN IN DER 


KREBSFORSCHUNG 


Recht unscheinbar gibt 


sich eine Computereinheit 
namens Videoplan. Hier- 
bei geht es immerhin um 
Krebsforschung, eine der 
vordringlichsten wissen- 
schaftlichen Aufgaben. 
Wichtigstes Werkzeug ist 
dabei ein Lightpen, der 
Computerzusatz, der bis- 
lang bei Homeanwendern 
eher mitleidig belächelt 
wurde. 

Behandelte tierische Zel- 
len werden in einem äu- 
ßerst dünnen Querschnitt 


unter das Mikroskop ge- 
legt und vom Computer 
abgetastet. Das auf dem 
Monitor entstehende Bild 
kann geprüft und bear- 
beitet werden. 

Stößt der Wissenschaft- 
ler dabei auf anomale Zel- 
len im Gewebe, so mar- 
kiert er sie mit dem Light- 
pen und erhält über ein 
Rechenprogramm die 
exakten Werte. Zusätz- 
lich werden sämtliche 
Zellen, die eine ähnliche 
Anomalie aufweisen, ge- 
zählt. Eine Statistik gibt 
Aufschluß, inwieweit das 
injizierte Material krebs- 
erregend war. Dazu muß 
vielleicht gesagt werden, 


daß eine einzige defor- 
mierte Zelle innerhalb ei- 
nes Gewebes noch lange 
kein Alarmzeichen ist. 
Erst der Rechner, bezie- 
hungsweise das Programm 
gibt Aufschluß über den 


Grad der Krebsgefährdung. 


GUTE AUSSICHTEN 
FÜR TIERFREUNDE 


Dabei geht es natürlich 
nicht ohne Tierversuche. 
Kein angenehmes Thema. 
Es ist aber Tatsache, daß 
Tierversuche, abgesehen 
von denen der kosmeti- 
schen Industrie, notwen- 
dig sind. Deshalb finden 
sie auch im Bereich der 
Toxikologie der GSF 


Ein IBM steu- 
ert den HPLC 
und übernimmt 
die Auswer- 
tung der 
Ergebnisse 


statt, es geht letztlich um 
Menschenleben. Aber 
hier wirkt sich der Com- 
puter bereits segensreich 
aus.» 

Es gibt Datenbanken, in 
denen Basisversuche abge- 
speichert werden. Daß 
dieses Archiv genutzt 
wird, ist ein simples Re- 
chenexempel, ist ist ein- 
fach billiger und schnel- 
ler; Doktoranden müssen 
nicht immer wieder aufs 
neue toxische Werte im 
Tierversuch ermitteln, son- 
dern können die Daten 
abfragen. 

Auch rein theoretisch 
wird auf diesem Gebiet ge- 
arbeitet. Aufgrund vor- 
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handener Ergebnisse si- 
mulieren Rechner den 
Ausgang eines neuen Ver- 
suches, ohne daß er wirk- 
lich durchgeführt wurde. 


SOFTWARE — 
WOHER NEHMEN UND 
NICHT STEHLEN? 


Zumindest ich kannte die 
beschriebene Anwendung 
nur vom Hörensagen, und 
die naheliegende Frage 
war: Woher kommt die 
Software? Günter Strobl 
hat zwei Programme für 
diese Arbeit, wobei ein 
amerikanisches, relativ 
preiswertes, Angebot be- 
reits in der Schublade ver- 
schwunden ist: nicht ge- 
eignet, kein effektiver 
Nutzen, bestenfalls einem 
Studenten zu empfehlen. 
Dem Mangel konnte mit 
einigen Beziehungen zur 
Technischen Universität 
und sehr viel Sachkennt- 
nis abgeholfen werden. 


UNBEZAHLBARE 
SOFTWARE 


Ein persönlicher Bekann- 
ter stellte ein noch nicht 
ganz fertiges Programm 
zur Verfügung, mit des- 
sen Leistungsfähigkeit 
man zufrieden ist. Hier 
ist Strobl plötzlich in der 
Rolle eines Pilotanwen- 
ders, eine Arbeit, die 
auch Informatikkennt- 
nisse erfordert. Natürlich 
gibt es auch kommerziel- 
le Programme. Der Ko- 
stenaufwand liegt aller- 
dings bei einer Größen- 
ordnung von 60000 Mark, 
die Hardware in Form ei- 
ner Workstation einge- 
schlossen. Zu viel. 

Selbst dann, so befürch- 
tet Günter Strob, sind die 
Anwendungen in der Wis- 
senschaft zu speziell, und 
es dürfte schwierig wer- 
den, die geeignete Soft- 
ware zu finden. Abhilfe 
ist dort zu suchen, wo 
ebenfalls geforscht wird. 
Im Bereich Informatik 
der technischen Universi- 
täten ist relativ viel zu 
holen. Nur befinden sich 
diese Programme fast alle 
noch im Entwicklungssta- 
dium, werden selten voll- 
ständig veröffentlicht 


und wenn überhaupt Do- 
kumentation vorhanden 
ist, dann läßt diese sehr 
zu wünschen übrig. 
Vorteile hat diese Be- 
schaffungsweise allerdings 
auch. Die Programme dür- 
fen gar nicht kommerziell 
verwertet werden, sofern 
sie an der Hochschule ent- 
wickelt wurden. In den 
USA müssen mit öffent- 
lichen Mitteln finanzierte 
EDV-Projekte sogar der 
Öffentlichkeit zugänglich 
gemacht werden. 

Die Public-Domain-Szene 
ist Tummelplatz der be- 
sten Programme, mit de- 
nen Otto Normalerver- 
braucher allerdings wenig 
anfangen kann. In der 
BRD sind wir noch nicht 
so weit, aber einige gute 
Kontakte helfen über die 
Hürden und bringen letzt- 
lich individuelle Software 
in den Computer, die un- 
bezahlbar ist. 

Aber dazu muß man fit 
auf dem Computer sein, 
denn abgesehen davon, 
daß die Software nicht 
ganz fertig und bis ins 
letzte Detail erprobt ist, 
stellt sich auch schnell 
heraus, daß der Program- 
mierer kein Chemiker 
oder Biologe war. Wenn 
sich auch der Chemiker 
unfähig zur Programm- 
verbesserung zeigt, kann 
ein ganzes Projekt ad 
acta gelegt werden. 
Damit ist auch die Frage 
beantwortet, welche Aus- 
sichten Sie mit Ihrer in 
der Freizeit erworbenen 
EDV-Bildung haben. 
Verlangt wird sie (noch) 
nicht, wie es so schön 
heißt. Aber abgesehen 
davon, daß einmal erwor- 
benes Wissen nie schadet, 
ist gerade der Forscher 
im naturwissenschaftli- 
chen Bereich zunehmend 
auf Computeranwendung 
angewiesen. Und ohne Er- 
fahrung muß der Selbst- 
lehrgang eben nachgeholt 
werden. Da darf auch die 
Information nicht fehlen, 
mit welchen Programmier- 
sprachen man es letztlich 
zu tun. hat. 

Bislang wird der Haupt- 
teil der Software in 
Fortran eingegeben. 
FORmula TRANslation 


Neueste Errungenschaft: Ein Wyse AT 


ist nun einmal die Spra- 
che der Wissenschaftler. 
Gelegentlich greift man 
bei kleineren Routinen 
auf Assembler zurück. 
Die große Trendwende 
steht jedoch bevor. Nach 
den Beobachtungen von 
Strobl wird zunehmend 
in C programmiert. Ein 
besonderer Aspekt, da 
man heutzutage bereits 
in Homecomputern die 
Möglichkeiten dieser 
Sprache nutzen kann. 


SPEKULATIONEN 
ZUR ZUKUNFT 


Computer sind Vertreter 


einer zukünftigen Tech- 
nik, die bereits heute 
schon erhältlich ist. 

Was wird von seiten der 
Elektronik auf die For- 
schung zukommen? 

In den Labors ist das 
Rennen um den Super- 
rechner noch längst nicht 
gelaufen. Und es wird ge- 
nau da entschieden und 
nicht etwa in den großen 
Rechenzentren. Die For- 
scher benötigen Rechner, 
die enorm leistungsfähig 
sind und trotzdem in ei- 


ner Preiskategorie liegen, 
die es erlaubt, jedem ein- 
zelnen Wissenschaftler ei- 
ne Konfiguration zur Ver- 
fügung zu stellen. 

Um es noch einmal in Er- 
innerung zu bringen: Ein 
AT ist bereits heute mit 
der Darstellung von ein- 
fachen Molekülen ausge- 
lastet. Komplexere Struk- 
turen sind nur an einem 
größeren Rechner darzu- 
stellen, der wiederum von 
einem Wissenschaftler al- 
leine an die Grenzen ge- 
bracht werden kann. In 
den Labors fehlt also 
nicht das gewaltige Netz- 
werk, sondern der Ar- 
beitsplatz-Computer der 
Superlative. 

Folgen hat dies natürlich 
auch auf die Ausbildung 
der Naturwissenschaftler. 
Falls Sie selbst ein Stu- 
dium der Chemie, Medi- 
zin oder der Biologie pla- 
nen und den Arbeitsbe- 
reich der Forschung im 
Auge haben, dann sollten 
Sie der EDV größte Auf- 
merksamkeit widmen. 
Bereits im privaten Sek- 
tor, der Domäne der 
Homecomputer, kann ei- 
niges getan werden. 
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BEE REPORTE 


Irgendwann ändert sicht 
die Struktur des Chemie- 
Studiums. Es wird wohl 
so aussehen, daß ein 
Grundwissen geschaffen 
wird, im Umfang viel- 
leicht sogar etwas kleiner, 
als bisher. Mit höherer 
Semesterzahl wird es sich 
wie das Geäst eines Bau- 
mes, in verschiedene 
Spezialrichtungen ver- 
zweigen. 


IN DER FORSCHUNG 
IST DER COMPUTER 
KEIN JOBKILLER 


Der Druck, derartige 
Überlegungen anzustel- 
len, kommt von der Com- 
putertechnik. Ein Pro- 
grammierer ist kein Che- 
miker, und der Chemiker 
ist kein Informatiker. Bis- 
lang kann man sich mit 
Eigeninitiative, die be- 
reits beim Studium be- 
ginnt, weiterhelfen. Aber 
die Anforderungen der 
EDV werden mit jedem 
neuen Rechner größer 
und sind nebenher nicht 
mehr lange zu bewälti- 
gen. 

Der naturwissenschaft- 
liche Informatiker ist 
noch nicht in Sicht und 
trotzdem kommt dem 
Computer eine immer 
größere Bedeutung zu. 
Von einem Jobkiller 
kann nicht die Rede sein. 
Software heißt das eigent- 
liche Problem, mit dem 
man auch in der GSF zu 
kämpfen hat. Eine Chan- 
ce für jeden Interessier- 
ten, mag er sich auch 
jetzt noch mit BASIC 
plagen. 

Wer in der Computeran- 
wendung seine Zukunft 
sieht, muß nicht unbe- 
dingt den Weg über das 
Studium einschlagen. Es 
besteht auch Bedarf an 
Laboranten jeglicher Art. 
Und auch hierbei ist, wie 
es so schön heißt, Erfah- 
rung mit dem Computer 
kein Hindernis. Augen- 
zwinkernd bedeutet dies 
wohl, daß Vorbildung kei- 
ne finanziellen Folgen 
hat. Aber was macht das 
schon, wenn man im Be- 
rufsleben auch noch den 
Kontakt zu seinem Hobby 
pflegen kann? GsD 


DAS 
MAGAZIN 


| Pc- 


Nr. 5/88 : 
April/Mai DM 7/ÖS 56/SFR 7 


Computern 

leicht gemacht 
MS-DOS 
Schritt für 


Schritt: 
Einstieg 
für Beginner 


Tragbare: 
Power für die 
Aktentasche 


Uhl 


Compäter Computer- Was leisten k 
im Test: Kauf: Programme? 
Aquarius XT Keiner weiß Wordstar 4.0 

Tulip AT 386 Bescheid: MS Window 
Schneider Kasse statt 

PC 2640 Klasse 


FÜR EIN-UM-UND 
AUFSTEIGER 


Jetzt an ausgewählten 


Kiosken und im 


Bahnhofs-Buchhandel 


re TPS&TRICKSE 


Mit zehn Mark 
sind Sie dabei: 
Drucken mit. 


jedem Modell 


Man sollte es eigentlich kaum glauben. 
Auf dem Markt werden Interfaces für 200 bis 300 DM 
angeboten, doch mit ein bißchen Material, das nicht 
einmal 10 DM kostet, und einem kleinen Programm 
können wir uns bereits ein Centronics-Interface 
für unseren C16/116/Plus4 basteln. 


Ursprünglich wollten wir 
eigentlich die Centronics- 
Schnittstelle am Kasset- 
tenport realisieren. Wir 
dachten, daß der Kasset- 
tenport mit dem seriel- 
len Port nichts zu tun 
hätte, weil im Betriebs- 
system des C16 eine Rou- 
tine „Kassettenport ein- 
schalten“ existiert. 

Bei näherem Hinsehen je- 
doch merkten wir, daß 


hier gar keine Umschal- 
tung auf den Kassetten- 
port vorlag, sondern ledig- 
lich der Bildschirm ausge- 
schaltet und ein Timer ge- 
setzt wurde. Durch Auf- 
ruf dieser Routine fand 
also keine elektrische 
Trennung von seriellem 
Port und Kassettenport 
statt. Bit Nummer eins in 
Adresse eins steuert also 
sowohl den Clock-Aus- 


gang des seriellen Ports 
und die Schreib-Leitung 
des Kassettenports. Da- 
mit würde die serielle Aus- 
gabe von Daten auf die 
Floppy 1541 also über un- 
ser geplantes Interface 
auch den Centronics-Druk- 
ker ansprechen, was wir 
nur allzugerne vermieden 
hätten. Da dieses sich lei- 
der nun sowieso nicht 
vermeiden läßt, wählten 
wir nun den seriellen 

Port für unser Interface 
aus, da wir hier nicht nur 
eine, sondern gleich drei 
Schreibleitungen zur Ver- 
fügung haben, was die 
Schaltung und vor allem 


die Programmlogik we- 
sentlich vereinfacht. 

Der Artikel über das 
Schieberegister zeigt uns 
bereits, wie wir mit nur 
drei Ausgabeleitungen 
acht Datenleitungen und 
eine Strobeleitung an den 
Drucker realisieren kön- 
nen. Für die Busy-Lei- 
tung hätten wir nun zwei 
Lösungen, nämlich doch 
noch den Kassettenport 
zu benützen oder aber 
eine unserer drei Leitun- 
gen am seriellen Port, mit 
denen wir nicht nur Da- 
ten ausgeben, sondern 
auch Daten lesen können, 
noch zusätzlich zur Ab- 
frage des Busy-Signals 

zu verwenden. 


ABFRAGEN 
DER BUSY-LEITUNG 


Daß wir zur Erzeugung 
von acht parallelen Daten- 
bits ein Schieberegister 
mit seriellem Eingang 
und parallelem Ausgang 
benötigen, dürfte wohl 
nicht all zu schwer zu er- 
raten sein. Was noch ein 
Problem darstellt, ist, 
wie wir wohl das Busy- 
Signal auf eine Datenlei- 
tung bekommen, ohne 
daß durch dieses unsere 
auszugebenden Daten be- 
einflußt werden können. 
Der Umstand, daß das 
Busy-Signal bei der Da- 
tenausgabe immer auf 
Low gesetzt ist, und erst 
nach dem Zurücksetzen 
des Strobe-Signals den 
Wert High anzunehmen 
pflegt, kommt uns hier- 
bei sehr gelegen. Mit ei- 
ner Diode, die den Strom 
nur in einer Richtung 
durchläßt, könnten wir 
auf billige Weise den Ein- 
fluß des Strobe-Signals 
auf unsere Daten aus- 
schalten. Die Diode al- 
lein nutzt uns aber noch 
nicht allzu viel. Sehen 
wir uns den Aufbau unse- 
res seriellen Ports etwas 
näher an, so kommen wir 
sehr schnell darauf, daß 
noch ein weiterer elek- 
tronisches Bauteil von- 
nöten ist. Die Datenlei- 
tungen des seriellen Ports 
liegen über einen Pull-Up- 
Widerstand auf High, so- 
fern durch entsprechen- 


B TIPS TRICKS EEE ZELLE 


des Poken in Adresse eins 
die Ausgänge hochohmig 
sind. Durch Setzen der 
Bits null bis zwei auf den 
Wert eins wird dieser Zu- 
stand erreicht. Die Bits 
fünf bis sieben, mit Hilfe 
derer wir die anliegende 
Spannung lesen können, . 
geben uns darüber Auf- 
schluß. Es ist hierbei zu 
bemerken, daß Bit sieben 
mit Bit null korrespon- 
diert, Bit sechs mit Bit 
eins und Bit fünf mit Bit 
zwei, wobei Bit null und 
sieben für die Daten-Lei- 
tung, Bit eins und sechs 
für die Clock-Leitung und 
Bit zwei und fünf für die 
ATN-Leitung zuständig 
sind. Die Low-Setzung 
einer Ausgabeleitung 
durch Setzen einer Eins 
in den entsprechenden 


EXTERNE 5-VOLT- 
SPANNUNGS- 
VERSORGUNG 


Bit oder das Anlegen von 
Low durch eine externe 
Verbindung sorgt dafür, 
daß die Spannung, die an 
den einem Ende des ein 
Kilo-Ohm großen Wider- 
standes noch fünf Volt be- 
tragen hatte, am anderen 
Ende auf null Volt herun- 
tergezogen werden kann. 
Zum Lesen eines Signales 
ist somit der Ausgang 
hochohmig zu machen, 
und abzufragen, ob ein 
externes Signal eine Än- 
derung des High-Zustan- 
des bewirke oder nicht. Da 
aber das Busy-Signal, 
durch eine Diode gesperrt, 
nur die Werte hochohmig 
oder High annehmen kann, 
und somit immer der 
Wert eins gelesen würde, 
ist mit den erwähnten 
Bausteinen das Lesen des 
Busy-Signales leider noch 
nicht möglich. Wenn das 
Busy-Signal sich allerdings 
genau umgekehrt verhiel- 
te, nämlich die Werte 

Low oder hochohmig an- 
nehmen könnte, so 
bräuchten wir nur die 
Diode umzupolen; mit 
Sperrichtung zum Druk- 


Anschlußtabelle 
74LS164 Diode 


Port 


4 
4 


Inverter 


Drucker 


Pinbelegung des seriellen Ports des Rechners: 


Über den 74LS164 TTL-Baustein, Diode, Inverter zu einem 


beliebigen Centronics-Drucker. 


Joystick 


Joystick Port PIN 5 


-owunrwmean 


Seriell 


Serieller Port PIN 2/3/4/5 


Rechner zum Drucker 
fließen, somit die Span- 
nung an unserem Eingang 
abfallen, und wir könn- 
ten diesen Zustand durch 
Abfragen des entspre- 
chenden Bits wahrneh- 
men. Ginge das Busy-Si- 
gnal im Anschluß auf 
High zurück, so bemerk- 
ten wir auch dieses wieder 
durch unsere Abfrage. Da 
von High zu High sowie- 
so kein Strom fließt, und 
der Stromfluß von High 
nach Low durch die Dio- 
de unterbunden ist, hätte 
im Anschluß das Strobe- 
Signal keinen Einfluß 
mehr auf an das Schiebe- 
register angelegte Span- 
nungen. Was wir also nur 
zu tun hätten, wäre das 
Umdrehen oder Invertie- 
ren der Busy-Leitung. 
Hierzu aber gibt es auch 
ein elektronisches Bau- 
teil, nämlich den Inver- 
ter, als letztes, uns noch 
fehlendes, Glied zur Rea- 
lisierung unserer Schal- 
tung. 


ELEKTRONISCHE 
BAUTEILE 


Die elektronischen Bau- 
teile bekommen wir im 
Elektronik-Fachgeschäft. 
Falls an Ihrem Wohnort 
keines vorhanden sein soll- 
te, so erfahren Sie sicher- 
lich in einer Elektronik- 
Fachzeitschrift die Adres- 
se eines Elektronik-Ver- 
sandgeschäftes. Was Sie 
beim Kauf oder bei der 
Bestellung der Bausteine 
wissen müssen, ist deren 
Bezeichnung. Als seriel- 
les Schieberegister mit se- 
rieller Eingabe und paral- 
leler Ausgabe kommt in 
Betracht der TTL-Bau- 
stein 74LS164. Eine 
schnelle niederohmige 
Diode mit geringem 
Spannungsabfall ist die 
Germaniumdiode AA112. 
Zum Invertieren des 
Busy-Signales können wir 
einen Inverter, zum Bei- 
spiel den TTL-Baustein 
741S04 oder auch ein 


Centronicsbelegung TTL-Baustein mit 14 Pins 


ker und das Problem wä- 
re gelöst. Würde der Druk- 
ker nach Zurücksetzen 
des Strobe-Signales das 
Busy auf Low setzen, so 
würde der Strom nun vom 


NAND-Gatter zum Bei- 
spiel den TTL-Baustein 
74LS03 verwenden. In- 
verter wie auch NAND- 
Gatter war in unserem 

Elektronik-Geschäft für 


Stecker und Platine 
für ca. 5 DM, etwas 
Kabel und Geduld 
beim Löten 


Was Sie hierzu 
brauchen: 


Elektronische Bau- 
teile für ca. 2 DM, 
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0,50 DM zu bekommen, unsere Elektronik beiein- für 2,95 DM und ein sechs- gänge des Gatters, Pin eins 


die Diode für 0,49 DM 
und das Schieberegister 
für 1,10 DM. Für ca. 
2,10 DM haben wir also 


ander. Eine gelochte Pla- 
tine ohne Leiterbahnen 
ist für 0,60 DM zu haben, 
der Centronics-Stecker 


poliger Diodenstecker 
wird wohl auch nur 1,25 
bis 1,95 DM kosten. 
Wenn wir nun nur noch 
unsere Kabel richtig ver- 
löten, so ist unser Inter- 


und zwei zu legen. Der 
Ausgang, Pin zwei beim 
Inverter bzw. Pin drei 
beim NAND-Gatter, 
kommt an das sperrende 
Ende der Diode, welches 


CENTRONICS Cie face schon fertig. un zauR a 
Die Zahlen i r ing kenntlich gemacht 
18 rem centronics==============016 <hl> le ee ist. Das andere Ende der 
28 rem (p) commodore welt team <ho> der Anschiußpins wieder. Diode verbinden wir mit 
32 Tem -=seessse=esseemesmesseoemeen <ng> Wo re Pins Ei unserer en 
: sitzen, können wir den gıstereingange oder mi 
“ rem (c) by alfons mittelmeyer <cg> nachfolgenden Bildern der Clock-Leitung des se- 
rem <pd> entnehmen. riellen Ports, was auf das- 
68 rem <ah> Hierbei ist zu beachten, selbe herauskommt. Da 
78 rem c16/116/plus4 <ja> daß wir die Anschluß- nun alle Signalleitungen 
80 rem + centronicsinterface <gc> verbunden sind, ist nur 
99 Tem rss szzmszmssumemeassemze <jg> c1 6-CENTRONICS we a er 
1080 Fori=1815t01867 <df> DAUEKER-INTERFACE San nieisien, Die Masse 
118 reada:pokei,a:next <ne> des Druckers, Pin 16, 
120 fori=1630t01729 <gl> ee ie SO und die Masse des Rech- 
138 reada:pokei,a:next <gp> dis sie alch. den Sn a . 
140 Fori=818t0858 <kp> von außen darbietet, den tial zu bringen und mit 
158 reada:pokei,a:next:sys818:new <ki> Centronics-Stecker dage- den Pins sieben unserer 
168 data 281 ‚81 3,208,897, 072, 169 <el> gen ist von hinten gese- zwei TTL-Bausteine zu 
170 data 019,032,002,004, 104,072 <le> hen, wo wir unsere Lei- verbinden. Die Versor- 
18@ data 133,245,165,001,162,808 <Ik> a en: gung mit 5 Volt ist etwas 
190 data 009,003,006,245,144,002 <gn> een 
’ ’ ’ ’ ’ g Schieberegisters liegen nicht jeder Drucker hat 
208 data 841,253,133,001,041,254 <aa> au Pin nt zwei. Da die gewünschte Span- 
210 data 133,081,202,208,239,089 <kp> iese Anschlüsse intern an "2 
228 data 804,133,001,041,249,133 <ge> einem AND-Gatter anlie- FIAT IHR DRUCKER 
238 data BA “ J ? ? : £ gen, ist die vom Rechner SB.VOLT AUF PIN 18? 
Sr E a 0a1,036,001,080,052,024 <bk> kommende Leitung mit nung auch wirklich an 
ata 174,061,001, 104,896 <im> beiden Pins zugleich zu Pin 18 anliegen. Wer 
258 data 972,165,153,201,083,288 <ih> verbinden. Wir haben die Lust und Laune hat, 
260 data 889, 165,173,291,116,2088 <ok> Clock-Leitung an Pin vier durch ein wenig Löten im 
270 data 083, 104,142,061,001,201 <cf> a Bedellun Voreal Dir. TIRUERRT, Giesen alznel: 
i enleitung auserwählt, die fen, kann dieses gerne 
280 data 017,208,002,024,096,170 <jh> Data-Leitung desselben tun. Anderenfalls gibt es 
298 data 841,127,201,065,048,012 <kk> Ports an Pin fünf dagegen auch noch eine zweite, 
308 data 281,091,016,008,224,088 <ni> als Clock-Leitung für das leicht zu realisierende 
310 data 048,005,073,032,208,081 <fa> Schieberegister, da an- Möglichkeit. Da die Be- 
328 data 138, 174,061 ,001,076.247 <gg> dersherum Probleme auf- nützung zweier Joystick- 
330 data 803 166 174 224 Yu 28 traten. Den Clock-An- ports sowieso nur in spe- 
’ ’ ‚ ’ ‚288 <pf> schluß des Schieberegi- ziellen Spielprogrammen 
340 data 088, 162,003,134,174,162 <nd> sters ist auf Pin acht zu vorkommt, liegen zumin- 
35@ data 116,134, 173,876, 178,086 <ha> finden. Als Strobe-Signal dest einer davon, wenn 
368 data 166,173,224,116,208,084 <dm> für den Drucker, das am _ nicht alle zwei völlig 
370 data 162,000,134,173,032,012 <ha> OS OR SE En Ein | DE. Wir) mr ag 
380 data 239,162, 008,134, 173,096 A 
’ ‚uuB, » „o <oi> wir das ATN-Signal des re Spannung abgreifen. 
390 data 032,083,239,076, 173,986 <ne> seriellen Ports an Pin Wir benötigen dazu nur 
400 data 032,093,238,876,173,08086 <mi> drei. Die parallelen Aus- ein isoliertes Kupferkabel 
410 data 104,076,075,236 <ik> gänge des Schieberegisters, von der nötigen Stärke, 
420 data 169,168, 141,932,083,169 <kc> Pins drei bis sechs und dafs wir das abisolierte 
a Pins 10 bis 13 sind an die Ende gut in Pin fünf eines 
438 data 986, 141,833,083, 169,143 <gj> D ne desC J ick 
448 data 141,024,003,169,086,141 <Ib> a en 
» ’ ’ ’ ’ tronics-Steckers Pins zwei stecken können. Wenn 
458 data 025,883, 169,184, 141,826 <bp> bis neun zu legen. Das die Spannung also nicht 
A60 data 003, 169,006, 141,027,803 <fe> Busy-Signal des Druckers vom Drucker zu bekom- 
470 data 169,094,141,036,003,169 <mi> auf Pin eins wird zum men ist, dann bitte Pin 
488 data 886, 141.037 003.096 u Eingang des Inverters, 14 der TTL-Bausteine 
490 Mn £ ebenfalls Pin eins geführt. nicht mit Pin 18 des Cen- 
TE a in <pm> Bei Verwendung des tronics-Steckers verbin- 
SO@ rem programmende <cp NAND-Gatters ist das den sondern mit Pin fünf 
S18 rem =============2==2=0002=2=200= [af> Busy-Signal auf beide Ein- einer Joystick-Buchse. 
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Wer eine Datasette oder 


eine Floppy 1551 benutzt, 


dürfte mit diesem Inter- 
face gut bedient sein. Für 
eine Floppy 1541 aller- 
dings, die ebenfalls am 
seriellen Port betrieben 
wird, ist diese Lösung 
kaum vertretbar, denn 
Floppy und Drucker wür- 
den sich gegenseitig ins 
Gehege kommen. Mit 

ein paar Bausteinen mehr 
könnte auch hier Abhil- 
fe geschaffen werden. 
Aber das soll nicht 

der jetzige Stoff sein. 


SOFTWARE-TREIBER 


Ausgaben über den seriel- 


len Port laufen normaler- 
weise völlig anders ab, als 
sie unser Interface benö- 
tigt. Es bleibt uns nichts 
anderes übrig, als das 
auszugebende Zeichen 
durch Verbiegen des Aus- 
gabevektors BSOUT und 
eine geeignete Routine 
abzufangen und selbst 
die Ausgabe in geeigneter 
Weise zu veranlassen. Un- 
ser Programm führt eine 
ASCIH-Umwandlung 
durch, damit Groß- und 


Kleinbuchstaben richtig 
ausgegeben werden, 
macht einen zusätzlichen 
Linefeed, damit auch die- 
jenigen, die einen auto- 
matischen Linefeed am 
Drucker nicht einstellen 
können, keine Probleme 
damit haben und unter- 
drückt den ASCII-Code 
17, womit Commodore- 
Drucker auf Groß-/ 
Kleinschreibung umge- 
stellt werden, andere 
Drucker aber zu uner- 
wünschten Dingen, wie 
Einschalten irgendeines 
Grafik-Modus, veranlaßt 
würden. Wenn Sie unser 


Programm CENTRONICS- 


C16 gestartet haben, 
kann der Drucker auf 
Commodore-übliche Wei- 
se angesprochen werden. 
Commodore-spezifische 
Steuer- und Grafikzeichen 
allerdings sind von Ihnen 
durch die entsprechenden 
Drucker-spezifischen Zei- 
chen zu ersetzen. Wir 
wünschen Ihnen viel Spaß 
mit Ihrem selbstgebauten 
Interface. a.m.U 


Aus Zwei 
machAcht 


Mit einem Schieberegister werden aus zwei - 
Datenleitungen acht. Ein Demoprogramm zeigt nicht 
nur die Funktionsweise einer solchen Datenüber- 
tragung auf, sondern ermöglicht zu Textzwecken gar 
die Ausgabe von Daten. 


WE: EEARBEN, IDEEN EINER GEBEN. NAAR: UEIERR| DENE 


(le IIIIIe 


Darstellung des Binär-Codes 
01000001, das dem ASCII- 
Zeichen A entspricht. 


Zehn Leitungen sind nor- 
malerweise nötig, um ei- 
ne Centronics-Schnittstel- 
le zu realisieren: nämlich 
acht Datenleitungen, die 
Strobe-Leitung, die dem 
Drucker das Bereitstehen 
von Daten signalisiert, 
und die Busy-Leitung, die 
uns die Bereitschaft zum 
Empfang weiterer Daten 
meldet. Sehen wir uns 
den seriellen Port unseres 
Rechners an, so entdek- 
ken wir nur drei Leitun- 
gen, die wir zum Senden 
und Empfangen benützen 
können. 


AUS ZWEI MACH ACHT 


Das sind wohl entschie- 
den zu wenig, könnte man 
meinen. Doch glücklicher- 
weise gibt es elektroni- 
sche Bauteile, die dieses 
Manko beseitigen können. 
Was wir benötigen, ist ein 
Baustein, den wir seriell 
Bit für Bit mit Daten be- 
schicken können und der 
diese schön parallel neben- 
einander für den Drucker 
bereithält. Also lediglich 
ein Acht-Bit-Schieberegi- 
ster mit seriellem Eingang 
und parallelem Ausgang, 
das es für eine Mark in je- 
dem gut sortierten Elek- 
tronik-Fachgeschäft zu 
kaufen geben sollte. 


Zur Ansteuerung eines 
solchen Schieberegisters 
sind nur zwei Leitungen 
erforderlich. Zum ersten 
eine Datenleitung, mit 
der wir entweder ein High- 
oder Low-Signal, je nach 
dem Zustand des zu über- 
tragenden Bit, am Daten- 
eingang des Registers anle- 
gen können. Zum zwei- 
ten eine Taktleitung, 
durch die wir mit einem 
kurzen Signal, dem soge- 
nannten Clocksignal, die 
Datenaufnahme auslösen. 
Nachdem sich nach acht 
Übertragungen die acht 
Bit des zu übertragenen 
Byte im Schieberegister 
befinden, ziehen wir kurz 
die dritte Leitung, die 
Strobe-Leitung, auf Low, 
und der Drucker hat sei- 
ne Daten. Wie wir die 
Busy-Leitung abfragen, 
soll uns im Moment noch 
nicht interessieren. Even- 
tuell können wir hierzu 
entweder die Daten- oder 
die Clock-Leitung her- 
nehmen. 


CENTRONICS- 
DEMOPROGRAMM 


Da eine Demonstration 

oft mehr zu zeigen vermag, 
als viele Worte auszusagen 
versuchen, haben wir für 
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Sie ein Demoprogramm 
verfaßt, welches wir jetzt 
starten wollen. 

Unten am Bildschirm ist 
der Zustand unserer Lei- 
tungen durch einen ge- 
setzten oder nichtgesetz- 
ten schwarzen Punkt sym- 
bolisiert. Die Strobe-Lei- 
tung links liegt normaler- 
weise auf High. Die 
Clock- und Daten-Leitung 
liegen noch auf Low. Mit 
den beiden letztgenann- 
ten Leitungen steuern wir 
das Schieberegister, das 
noch gänzlich leer vor 
uns liegt. 

Indem wir die Tasten 

[0] oder [1] drücken, le- 
gen wir unsere Daten an 
das Schieberegister an. 
Mit dem Druck der Leer- 
taste lösen wir das Clock- 
Signal aus, das unser Da- 
tenbit in das Schieberegi- 
ster bringt. Die nachfol- 
gende Tabelle gibt uns 
Aufschluß über die Bit- 
Codes einiger ASCII- 
Zeichen. 


0010 0011 0100 0101 


0000: 0 @ R $ 
0001: ! 1: Ä Ö: 
0010: a 2 2 B R: 
001: #:3:cC S.» 
0100: $ 4: D T& 
101: % 5 2: 5 U 
0110: & 6 E F N 
0111: 72:6 W: 
1000: ( 8: H x: 
1001: ) 9:1 Y: 
1010: x ee u | EG 7 GE 
101: 88 U KE LH 
1100: ISER Li 
1101: kw: Mi: Jo: 
1110 EP: NEL 
1111: a a © 


Über jeder Spalte befin- 


den sich die vier ersten zu 
übertragenden Bit, am 
Anfang jeder Zeile die vier 
restlichen Bit. Nachdem 
das einem ASCII-Zeichen 
entsprechende Bitmuster 
im Schieberegister steht, 
löst ein Druck auf die 
Return-Taste das Strobe- 
Signal aus. Dadurch wird 
das Zeichen auf den Druk- 
ker, in unserem Demopro- 
gramm hingegen in die er- 
ste Bildschirmzeile, aus- 
gegeben. 

Wenn Sie CW-EXTRA auf 
den Bildschirm zu bringen 
vermögen, so dürften Sie 
das Funktionsprinzip ei- 
ner Centronics-Schnitt- 
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stelle am C16/116 schon 
voll erfaßt haben. 


AUTOMATIK-MODUS 
Eine Möglichkeit, die un- 


ser Demoprogramm noch 
bietet, haben wir Ihnen 
bis jetzt noch verschwie- 
gen. Mit der ESC-Taste 
können Sie in den Auto- 
matik-Modus um- und 
von dort auch wieder zu- 
rückschalten. Im Auto- 
matik-Modus können wir 
hintereinander bis zu 
zehn Tasten drücken, 
denn soviel faßt der Ta- 
staturpuffer. Nach der 
Eingabe setzt der uns be- 
reits vertraute Ablauf 
programmgesteuert ein, 
und bald darauf ist der 
Buchstabe auf dem Bild- 


Als wertvolle Hilfe beim 
Bau des Interface erwies 
sich die im Centronics- 
Demoprogramm vorgese- 
hene Möglichkeit, die Da- 
ten auch wirklich am se- 
riellen Port auszugeben. 
Hierzu sind nur die ent- 
sprechenden REMSs, die 
die Ausgabe normalerwei- 
se verhindern, zu besei- 
tigen. 

Falls wir im Besitz eines 
Centronics-Schnittstellen- 
Testers sind, können wir 
an dessen leuchtenden 
Lämpchen ablesen, ob 
das Interface auch wirk- 
lich das tut, was auf dem 
Bildschirm zu sehen ist. 
Vollführt es das Erwarte- 
te,so steht nichts mehr 
im Wege, Daten an den 
Drucker zu senden. 


schirm sichtbar. a.m. D 
CENTRONICS-DEMO 
18 rem centronics-demo ========c16 <ip> 
28 rem (p) commodore welt team <ho> 
3O rem ===============2========22== ong> 
48 rem by alfons mittelmeyer <nm> 
5A rem <pd> 
68 rem <ah> 
78 rem basic v3.5 <nl> 
88 rem c16/116/plus4 <ki> 
98 rem ==============2=====2======== Cjg> 
188 scnclr:gosub638 <jf> 


118 char, 7,4,"B "+lo$+"C"+u$+"C"+u 
$+"C"+u$+"C"+u$+"C"+u$+"C"+ug+"C"”+ 


u$+"C"+u$+"C”"+ro$ 


<ka> 


128 char,7,5,"B B"+10$+"C"+0$+"C"+ 
0$+"C"+0$+"C"+0$+"C"+0$+"C"+0$+"C" 


+0$+"C"+ro$+"B"” 


<kn> 


130 char,7,6,"BBBBBBBBBBB 


<co> 


148 char, 7,7,”"B B"+1u$+"C"+u$+"C"+ 
u$+"C"+u$+"C"+u$+"C"+u$+"C"+ug+"c" 


+u$+"C"+ru$+"B"” 


<oh> 


158 char,7,8,"B "+lu$+"LCCCCCCCECE 


EC"+0$+"C"+0$+"C"+ru$ 


<ci> 


168 for i=-9tol2:char,7,i,"B":char, 


23,i1,"B B":next 


<oh> 


178 char, 7,13, 1u$+"CCECCCCCECCEC"+ 


ro$+" B B" 


<bm> 


188 for i=14£015:char,21,1,"B B B” 


next 


<an? 


198 char, 19,16, 10$+"C"+u$+"C"+u$+" 


C"+u$+"C”"+ro$ 


<1m> 


288 char, 19,17,"B"+10$+"C"+0$+"C"+ 


0o$+"C"+ro$+"B" 


218 char, 19,18, "BBABAB BB" 


<ok> 
<ke> 


13 


228 char, 19,19,"B"+1u$+"C”"+u$+"C"+ 
u$+"C"+ru$+”"B" 

238 char, 19,28, 1u$+"CCCCCCC"+ru$ 
248 a$=" ":fori=1t07:a$=a$+1$+" ": 
next ? 
258 
268 
278 
288 
298 
388 
318 
328 


c1=8:da=®:sr=-1 

getkeyx$ 
ifx$="8"thenda=8 
ifx$="1"thenda=-1 

ifx$=" "thencl=-1 
ifx$=chr$( 13) thensr=8 
ifx$=chr$( 27) thengoto588 
gosub330:goto260 

332 ifsrthen438 

348 char,21,18,” ":fori=1to5@8:nex 
t:char,21,18,"Q” 


358 b=8:fori=1t015step2:b=b+b 

368 ifmid$(a$,i,1)="Q"thenb=b+1 
378 next:sr=-1:fork=1t058@:next 
388 char,x,y,chr$(b) :x=x+1 

398 rem -------------------------- 
488 rem strobe 

a1d rem ------------- == 
428 rem pokeil,peek( 1)or4:pokel,pe 


ek{ 1) and251 


438 ifdathenda$="Q":elseda$=" " 
AaAu rem -------------------- 
458 rem data 

468 rem ------------------------- 
478 rem ifdathenpoke1,peek( 1) and2 


53:elsepokei,peek( 1)or2 

488 ifnotclthen558 

498 char,23,18,” ":fori=1t050@:nex 
t:char,23,18,"Q":c1=@ 

588 a$=right$(a$, 13) +1$+da$ 

518 rem 
528 rem 
538 rem 
548 rem pokei,peek( 1J)ori:pokei,pee 
k( 1) and254 


clock 


558 char,25,18,da$ 

568 char, 11,6,a$ 

578 return 

588 getkeyz$:z=asc( z$) :ifz=27then2 
68 

598 forj=itod:z=z+z:fork=1t05@@:ne 
xt 

6088 da=B:ifz>=256thenda=-1:z=z-256 
610 gosub33@:c1=-1:fork=1t0588:nex 


t:gosub338:next:fork=1t05@@:next 
628 sr=o:gosub339:goto588 

638 1$=chr$( 29) :lo$=chr$( 176) 
648 ro$=chr$( 174) :1u$=chr$( 173) 
658 ru$=chr$( 189) :0$=chr$( 178) 
668 u$=chr$( 177) :return 

678 rem 
688 
698 


rem 
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Hobby-tronic 
& Computerschau in 
Dortmund 


Etwa 75000 Besucher fan- 
den in fünf Messetagen 
den Weg nach Dortmund 
zur Hobby-tronic & Com- 
puterschau. Nachdem im 
vorigen Jahr die Messe- 
leitung, durch den gro- 
ßen Andrang bedingt, 

die Messe mehrmals schlie- 
ßen mußte, wurden in die- 
sem Jahr die Gänge ver- 
breitert und die Ausstel- 
lungsflächen vergrößert. 
Auch 1988 präsentierte 
sich die Ausstellung mit 
der im Vorjahr erfolgrei- 
chen Konzeption: In Hal- 
le 5 befand sich die Hobby- 
tronic, elfte Ausstellung 
für Funk- und Hobby- 
Eiektronic, in Halle 6 

war die Computer-Schau 
als vierte Ausstellung für 


Computer, Software und 
Zubehör aufgebaut. Die- 
se Gliederung soll eine gu- 
te Übersicht und ein 
leichtes Auffinden der 
Produktgruppen ermög- 
lichen. 

An der Zwillingsmesse be- 
teiligten sich 135 Ausstel- 
ler, die 28 Firmen vertra- 
ten. Hinzu kamen mehre: 
re Freizeit-Verbände des 
Computer- und Elektro- 
nik-Sektors, die über ihr‘ 
Hobby firmen- und sy- 
stemneutral unterrichte- 
ten. 


75000 MESSEBESUCHER 
AUF DER 
HOBBY-TRONIC 


Die Computer-Schau ’88 
bot Systeme aller gängi- 
gen Hersteller. Das Preis- 
Spektrum reichte von et- 
wa 100 bis zu 25000 
Mark für aufwendig ausge- 
stattete Systeme zur pro- 
fessionellen- Anwendung. 
Computer-Besitzer fan- 
den Programme von der 
Adressenverwaltung über 
Auftragbearbeitung und 
Textverarbeitung bis hin 
zur kompletten Finanz- 
buchhaltung vor, das al- 
les im Preisbereich zwi- 
schen 49 und 199 Mark. 
Aber auch diejenigen, die 
nicht über einen so großen 
Etat verfügen, kamen auf 
ihre Kosten. Vor allem 
die Bastler konnten so 


Kleine 
Show ganz 
groß 


Vom 3. bis 7. Februar wurde das Dortmunder 
Ausstellungsgelände Westfalenhallen zum Treffpunkt 
für Computer-Freaks und Hobby-Elektroniker. Die 
Hobby-tronic & Computerschau ’88 präsentierte 
ais kombinierte Ausstellung ein elektronisches Riesen- 
angebot für jedermann. 


manches Schnäpchen ma- 
chen: defekte Computer 
zu Schleuderpreisen, 

5 1/4-Zoll-Floppy-Lauf- 
werke ab 25 Mark, dazu 
das umfangreiche Ange- 
bot an Zubehör. 

Zwar wurde eine Vielzahl 
von Produkten vorge- 
stellt und zum Verkauf 
angeboten, ein absoluter 
Messerenner jedoch fehl- 
te. So war es auch nicht 
verwunderlich, daß haupt- 
sächlich die Stände mit 
Software-Angeboten stark 
umlagert waren. Die Preis- 
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palette reichte von 3 

Mark bis unendlich. Jeder, 
der etwas bestimmtes 
suchte, durfte fündig ge- 
worden sein. 

Gut besucht waren die 
Stände der verschiedenen 
Computerclubs, die sich 
mit teilweise sehr hoch- 
wertigen und ausgefalle- 
nen Produkten präsentier- 
ten und ihre Clubarbeit 
vorstellten. Neulinge un- 
ter den Computerfans fan- 
den in den Fachabteilun- 
gen der vertretenen Kauf- 
häuser die Computerty- 
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pen gesondert vorgestellt 
und erläutert. 

Besonders Commodore- 
Fans kamen auf ihre Ko- 
sten: Fast alle Zubehör- 
firmen, die für diese Com- 
puter produzieren, wa- 
ren anwesend. Ein ge- 
brauchter 6522 für 3 
Mark, eine Epromplatine 
ab 5 Mark, eine 320- 
KByte-Erweiterung: Es 
war alles vorhanden, was 
das User-Herz begehrte. 
Den C16/116- und Plus4- 
Fans wurde das Centro- 
nics-Kabel (COMMO- 
DORE WELT 12/87) für 
den Plus4 vorgestellt, 
auch andere Soft- und 
Hardware für diese Com- 
putertypen gab’s in 

Hülle und Fülle. 

Durch die große Nachfra- 
ge waren einige Produk- 
te (RAMs 41256, Amiga- 
oder Atari-Modulator), 
teilweise bereits nach dem 
dritten Tag ausverkauft. 


ATARI & COMMODORE 
NICHT VERTRETEN 


Auch Buch- und Zeitungs- 
verlage ließen es sich nicht 
nehmen, ihre Erzeugnis- 
se vorzustellen. Der Ver- 
braucher konnte sich vor 
Ort über die Fülle von 
Fachliteratur informieren. 
In Halle 6 befand sich 
auch die neutrale ‚„Com- 
puter-Beratung“. Hinzu 
kam die „Computer-Stra- 
Be‘, auf der sieben Com- 
puterclubs mit Tips, Hin- 
weisen und Software oh- 
ne kommerzielles Inter- 
esse vertreten waren. 
Interessant für alle, die 
den Einstieg ins Program- 
mieren finden wollten, 
war das Kursprogramm 
zur Computer-Schau. 
Dreimal täglich wurden 
Kurse angeboten, die 
Programmier-Grund- 
kenntnisse vermitteln 
sollten. 
Allerdings waren die gro- 
ßen Homecomputer-Her- 
steller wie Commodore 
oder Atari nicht durch 
eigene Stände vertreten 
Wegen der CeBIT in Han- 
nover haben sie wohl 
auf die Vorstellung der 
neuesten Produkte in 
Dortmund verzichtet. 
bwO 
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Lernen am 
Programm 


Programmlistings, gut 
kommentiert, können 
eine Fundgrube für den 
Anfänger sein. Oft sieht 
er sich aber mit einer 
Menge Listings konfron- 
tiert, die so gemacht sind, 
als habe es der Autor 
darauf angelegt, jedes gei- 
stige Durchdringen zu 
verhindern. Am Beispiel 
einer Lottoauswertung, 
die wir haargenau erklä- 
ren, zeigen wir, wie ein 
Programmierproblem ge- 
löst wird. 


APARERE 


000090 


Der Computer kann uns be- 
sonders bei stumpfsinnigen 
Tätigkeiten sehr viel Arbeit 
abnehmen, vor allem bei Aus- 
wertungen und Sortierver- 
gängen. Manche Aufgaben- 
stellungen scheinen zwar an- 
fänglich etwas verzwickt, aber 
nach einer eingehenden Ana- 
Iyse läßt sich meist die ganze 
Sache vereinfachen und ein 
klares Konzept für die Pro- 
blemlösung erstellen. 


PROBLEMSTELLUNG 


“Ich habe folgendes Problem: 
Ich benötige ein Programm, 
bei dem ich 100 Zeilen mit 
jeweils sechs Zahlen eingeben 
kann. Wenn ich nun sechs ver- 
schiedene Zahlen inklusive 
Zusatzzahl eingebe, soll mir 
der Computer alle Dreier, 
Vierer, Fünfer, Fünfer mit 


Zusatzzahl und Sechser an- 
zeigen, die sich aus den 100 
mal sechs Zahlen ergeben. 

Eine Aufteilung der Aufga- 
benstellung in kleinere Teil- 
schritte erhalten wir bereits, 
wenn wir die Grundbegriffe 
der EDV, also Dateneinga- 
be, Datenverarbeitung und 
Datenausgabe, heranziehen. 


DATENEINGABE 


Sechs Zahlen und eine Zu- 
satzzahl mit Hilfe einer IN- 


a 


PUT-Anweisung zu erfassen, 
dürfte kein allzu großes Pro- 
blem sein. 600 Zahlen, wobei 
ja auch Tippfehler auftreten 
könnten, bereiten uns da 
schon mehr Schwierigkeiten. 
Diese können wir aber sehr 
einfach dadurch umgehen, 
daß wir von der DATA-An- 
weisung Gebrauch machen 
und unsere Daten in DATA- 
Zeilen ablegen. Uns allerdings 
auf genau 100 Zeilen mit der 
entsprechenden Anzahl von 
Tips festzulegen, würde die 
Verwendbarkeit des Program- 
mes nur unnötig einschrän- 
ken. Wir sollten die Anzahl 
der Tips völlig offenlassen. 
Um unserem Programm zu 
sagen, mit wie vielen Daten 
es zu tun hat, ist noch eine 
Endmarkierung unterzubrin- 
gen. Da die Lottozahlen nur 
Werte von eins bis 49 umfas- 
sen, - bietet sich” die Null als 
Endemarke an. Wir schrei- 
ben also in jede DATA- 


Zeile sechs Zahlen und in eine 
weitere die Zahl Null. Damit 
ist der Eingabeteil bereits ge- 
löst. 


DATENAUSGABE 


Die Datenausgabe vermag mit 
den eingegebenen Daten nicht 
allzuviel anzufangen. Es be- 
darf vorher noch der Daten- 
verarbeitung, die in unserem 
Falle eine Auswertung der 
Lottotips darstellt. Hätten 
wir neben den Eingabedaten 
zusätzlich noch eine entspre- 
chende Liste, die uns Auf- 
schluß über die Anzahl der 
Richtigen zu jedem Tip ge- 
ben würde, so könnten wir 
nun bereits an die Ausgabe 
denken. Hierzu bräuchten wir 
nur diese Liste zum Beispiel 
nach drei oder sechs Richti- 


gen zu durchsuchen und 
Nummern — eventuell haben 
wir unsere Spiele durch- 


numeriert — und Zahlen der 
dazugehörigen Tips auszuge- 
ben. Durch Hochzählen einer 
Variablen könnten wir an- 
schließend auch noch die An- 
zahl unserer richtigen Tips 
auf den Bildschirm bekom- 
men. 

Wenn wir lesen, wir hätten 
zwanzig Vierer, mag uns dies 
zu einem Freudenschrei An- 
laß geben. Da zumindest 
bei den Dreiern die Aufli- 
stung von mehr Tips, als der 
Bildschirm wiederzugeben 
vermag, möglich sein kann, 
empfiehlt es sich, eine Stopp- 
funktion durch Druck der 
Leertaste zu implementieren. 
Was uns jetzt ‘bei unseren 
Überlegungen noch fehlt, ist 
die Auswertung, die uns un- 
sere Liste mit der Zahl der 
Richtigen erstellt. 


DATENVER- 
ARBEITUNG 


Das Prinzip ist einfach zu ver- 
stehen: Wir brauchen nur 
nachzusehen, wieviel Richti- 
ge unser Tip enthält und das 


Ergebnis in die Liste einzu- 
tragen. Wenn wir dieses Ver- 
fahren sukzessiv durchge- 
führt haben, bis alle Tips ein- 
getragen‘.sind, ist die Verar- 
beitung beendet. Jedoch wäre 
die Anweisung, die Anzahl 
unserer Richtigen festzustel- 
len, für den Computer sehr 
unklar. Wir müssen sis ihm 
erst noch plausibel machen. 


DATENVERGLEICH 


Um festzustellen, ob ein Ele- 
ment einer Liste in einer an- 
deren Liste enthalten ist, be- 
darf es nicht nur eines ein- 
zigen Blickes; sonder einer 
Anzahl von Vergleichen. Das 
Element der einen Liste muß 
mit jedem Element der ande- 
ren verglichen werden. Bei 
Feststellung der Identität 
kann entweder ein Zähler er- 
höht oder ein Flag gesetzt 
werden. Wir vergleichen ein 
DATA unseres Tips mit 
jedem der sechs ausgelosten 
und durch unsere INPUT- 
Anweisung erfaßten Werte 
der Richtigen. Bei Identität 
der Werte dürfen wir einen 
Zähler erhöhen. Bei Identi- 
tät mit der siebten Zahl, der 
Zusatzzahl, setzen wir ein 
Flag. 

Wenn wir auf diese Weise je- 
des unserer DATAS mit den 
richtigen Lottozahlen vergli- 
chen haben, dürfen wir uns 
anschicken, die Anzahl unse- 
rer Richtigen in unserer zu 
erstellenden Liste zu erfassen. 
Bei fünf Richtigen kommt 
noch eine Sonderüberprüfung 
hinzu, nämlich, ob eventuell 
das Zusatzzahlflag gesetzt ist. 
Wenn ja, so müssen wir diesen 
Fall kenntlich machen und 
dürfen nicht lediglich fünf 
Richtige eintragen. Es bietet 
sich hierzu als Kennung die 
Zahl sieben an. Sind alle Tips 
verarbeitet, so sollte unsere 
Auswertungsliste auch eine 
Endemarke erhalten. Hierzu 
haben wir eine Eins mit ne- 
gativem Vorzeichen gewählt, 
da eine weitere negative Zahl 
in unserer Liste nicht vor- 
kommen kann. 
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Zeile 130: 
Eingabeaufforderung. 


Zeile 140: 

Die sechs Lottozahlen werden 
mit einer indizierten Variab- 
len A(K), mit K= 1 bis 6, er- 


faßt. Dies hat den Vorteil, 


daß später bei der Auswer- 
tung (vgl. Zeile 200) nicht 
jedes A(K) einzeln abgefragt 
werden muß, sondern mit 
Hilfe einer Laufschleife be- 
arbeitet werden kann. Da der 
Zusatzzahl eine besondere Be- 
handlung widerfährt, kann sie 
mit der Variablen Z erfaßt 
werden. Beim Programmab- 
lauf sind, durch die INPUT- 
Anweisung bedingt, sieben 
Zahlen, durch Komma von- 
einander getrennt, einzuge- 
ben, wobei die letzte die 
Zusatzzahl sein muß. 


Zeile 180: 

Die Anzahl der Richtigen soll 
in einer Liste erfaßt werden. 
Wir verwenden dafür das Feld 
W%(l) und demensionieren 
es auf 101, was der maxima- 
len Anzahl unserer Lottotips 
plus unserer Endmarkierung 
entspricht. Um keine Spei- 
cherstelle zu verschenken, 
lassen wir den Feldindex I 
nicht mit Eins, sondern mit 
Null beginnen. Die Vorbe- 
reitungen sind. getroffen, und 
wir können nund die erste ge- 
tippte Zahl des ersten Spieles 
mit einer READ-Anweisung 
einlesen. Wir wählen hierzu 
die Variable X. 


Zeile 190: 

Diese Zeile soll nicht nur für 
das erste DATA überhaupt, 
sondern für die erste Zahl in 
jeder DATA-Zeile gelten. Wir 
überprüfen hier, ob wir be- 
reits das Ende unserer DA- 
TAS erreicht haben. Haben 
wir eine Null vor uns, so ist 
dies der Fall und wir.vermer- 
ken nun auch in unserer Aus- 
wertungsliste W%(T), durch 
eine negative Eins, deren En- 
de. Da der Auswertungsteil 
damit abgeschlossen ist, sprin- 
gen wir weiter zum Ausgabe- 
teil. 


Zeile 200: 

Hier geht es um die Auswer- 
tung eines Lottospieles. 

Wir setzen zu Beginn den 
Zähler N für die Anzahl unse- 
rer Richtigen auf Null, ebenso 
das Zusatzzahlflag ZF. Unsere 
sechs Lotto-DATAS müssen 
nun mit den richtigen Zahlen 
verglichen werden. Wir ver- 
anlassen dies mit einer Schlei- 
fe und der Laufvariablen J. 
Jede unserer Lottozahlen 
muß mit den sechs Richtigen 
verglichen werden. Eine wei- 
tere Schleife mit der Lauf- 
variablen K sorgt hierfür. 
Nun macht sich die Indizie- 
rung der in Zeile 140 erfaßten 
Werte bezahlt. Bei Überein- 
stimmung der zu überprüfen- 
den Zahl X mit einer der 
sechs Richtigen A(K) wird 
der Zähler N erhöht. 


Zeile 210: 

Die NEXT-Anweisung, die für 
den Vergleich unserer Zahl X 
mit der nächsten Richtigen 
A(X) sorgt, darf wegen der 
IF-Anweisung in der vorher- 
gehenden Zeile erst jetzt er- 
folgen. Nachdem nun unsere 
Zahl mit den sechs Richtigen 
verglichen ist, überprüfen 
wir, ob sie vielleicht mit der 
Zusatzzahl übereinstimmt 
und setzen in diesem Fall das 
Zusatzzahlflag ZF auf Eins 
minus. Dieser Wert bietet sich 
an, weil er dem logischen 
Wert TRUE entspricht. In 
einer Abfrage (vgl. Zeile 
220) genügt daher statt IFZF 
=—| bereits IFZF. 


Zeile 220: 

Unsere Zahl X ist nun mit 
den richtigen Lottozahlen 
verglichen worden. Wir müs- 
sen nun auf dieselbe Weise 
unsere fünf weiteren Zahlen 
vergleichen. Unsere nächste 
Zahl X erhalten wir mit einer 
READ-Anweisung. NEXTJ 
sorgt für die Abarbeitung der 
neuen Zahl (vgl. Zeile 200), 
sofern unser Lottotip noch 
nicht restlos abgearbeitet ist. 
Anderenfalls steht uns mit 
X bereits die erste Zahl der 
nächsten DATA-Zeile zur 
Verfügung. Die Anzahl der 


Richtigen steht nun im Zäh- 
ler N. Bei fünf Richtigen über- 
prüfen wir durch zwei ge- 
schachtelte IF-Anweisungen, 
ob unser Zusatzzahlflag ZF 
gesetzt wurde und wir also 
auch die Zusatzzahl richtig 
haben. Ist dies der Fall — 
es wäre nur allzu schön —, 
so setzen wir zur Markie- 
rung dieses Sachverhaltes 
unseren Zähler N auf den 
Wert sieben. 


Zeile 230: 

Das ausgewertete Ergebnis N 
dürfen wir nun in unsere Liste 
W%(l) eintragen. Nachdem 


auf den Bildschirm. Nachdem 
wir der Variablen K, zum 
Zeichen dafür, daß wir nach 
sechs Richtigen suchen, den 
entsprechenden Wert über- 
geben haben, soll eine Unter- 
routine ab Zeile 350 den Rest 
erledigen. Unterroutinen 
empfehlen sich überall dort, 
wo ein und derselbe Algorith- 
mus mehrfach Verwendung 
findet, wie dies ja auch in 
Zeile 280 der Fall ist. 


Zeile 280: 

Analog zu Zeile 270. Da die 
Unterroutine ab Zeile 360 
selbst für eine Leerzeile sorgt, 


LOTTO-AUSWERTUNG 


18 rem lottoauswertung=========chm <he> 
28 rem (p) commodore-welt-team <ie> 
38 rem =========-0==220= nennen Ong> 
48 rem (c) by alfons mittelmeyer <cg> 
58 rem <pd> 
68 rem <ah> 
78 rem basic v2.8 <nc> 
88 rem c16/116/plus4/c64/c128 u.a. <bn> 
98 rem =============202220unnnnnee ig) 
188 rem + - en <op> 
118 rem eingabe <mj? 
128 rem ------------- 7-2 <po> 
138 print"eingabe von 7 zahlen (6 

+ zusatzzahl)" <fh> 
148 inputa( 1) ,a(l2),al3),al4),a(l5), 

al6),z <gk> 
190: nam SF nn <jj? 
168 rem ermittlung der richtigen <ld> 
1726: ram SSH re <ef> 
188 dimw%( 181) :i=®:readx <oj> 
198 ifx=8thenwXl i)=-1:g0t0278 <if> 


wir den Feldindex I erhöht 
haben, geht es weiter mit dem 
nächsten Lottotip durch den 
Sprung nach Zeile 190. Die 
neue Zahl X steht uns hierzu, 
wie wir bereits im Kommen- 
tar zur vorangegangenen Zeile 
bemerkten, schon zur Ver- 
fügung. 


Zeile 270: 

Da uns natürlich besonders in- 
teressiert, - ob wir einen 
Glückstreffer haben, beginnen 
wir nicht mit drei, sondern 
mit sechs Richtigen und 
schreiben dies, mit einer Leer- 
zeile Abstand zur Eingabe, 


fehlt die zusätzliche PRINT- 
Anweisung der Zeile 270. 


Zeile 290: 

Nach Abarbeitung der Fünfer 
mit Zusatzzahl liegt keine 
Sonderregelung mehr vor, 
und so können die restlichen 
Treffer mit einer Schleife un- 
ter Zuhilfenahme der Lauf- 
variablen K, die nun abwärts 
von fünf bis drei läuft, wei- 
ter bearbeitet werden. 


Zeile 300: 

Mit der RIGHTS-Anweisung, 
in Verbindung mit STRS(K) 
und der LEN-Funktion, sor- 
gen wir dafür, daß die Bild- 
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————:, 


0 0 age 


schirmausgabe der restlichen 
Treffer an den linken Rand 
zu liegen kommt. Da K be- 
reits Laufvariable ist, braucht 
dieser Parameter nicht zu- 
sätzlich übergeben zu werden, 
sondern es kann sogleich der 
Aufruf der Unterroutine 
erfolgen. 


Zeile 310: 

NEXTK sorgt dafür, daß die 
Auswertungsergebnisse für die 
nächst geringere Trefferzahl 
ausgegeben werden (vgl. Zeile 
290). Nach der Ausgabe der 
Dreier sind wir schließlich fer- 
tig, so daß die END-Anwei- 


schluß darüber geben soll, 
wie viele Dreier, Vierer oder 
sonstige Treffer wir erreicht 
haben. 

Zeile 360: 

Das Flag S soll uns sagen, ob 
die in der Liste W%(I) erfaßte 
Zahl der Richtigen unseres 
Tips mit der Trefferzahl K, 
nach der wir suchen, überein- 
stimmt. ist dies der Fall, so 
erhöhen wir den Trefferzäh- 
ler N und geben die Nummer 
des Spiels aus, die der um eins 
erhöhte Wert des Feldindexes 
ist. Wir haben diesen ja nicht 
bei eins, sondern bei Null 
beginnen lassen. 


288 n=A:zf=B:forj=1t06:fork=1to6:i 


fx=a(lk)thenn=n+1 <jg> 
218 next:ifx=zthenzf=-1 <fl> 
228 readx:nextj:ifn=Sthenifzfthenn 

=7 <pl> 
238 w%l i)=n:i=i+t1i:goto198 <1h> 
240 rem ------------=------ <ch> 
258 rem ergebnisse <pp> 
268 rem ---------------------- <ob> 
278 print:print"6-er"”:k=6:gosub35B <eo> 
288 print"”S-er mit zusatzzahl"”:k=7 

:gosub358 <gg> 
298 fork=Sto3step-1 <hb> 
388 printright$(str$(k) ,Len(str$(k 

))-1)"-er"”:gosub358 <kk> 
31@ nextk:end <kf> 
320 FE me ee <kp> 
338 rem unterroutine <1h> 
3aB DEM — man a en <ip> 
358 restore:i=@:n=® <ib> 
368 s=w%[ i)=kK:ifsthenn=n+1:print"s 


sung das Programm beenden 
darf. 


Zeile 350: 

Da wir nicht nur sehen wol- 
len, wie viele Treffer wir ha- 
ben, sondern diese vielleicht 
zur Kontrolle mit unseren 
Lottoscheinen vergleichen 
möchten, sollten auch die 
Daten unserer gewonnenen 
Spiele nochmals ausgegeben 
werden. Mit der RESTORE- 
Anweisung setzen wir den 
DATA-Zeiger auf den Anfang 
der DATAS. Den Feldindex 
I setzen wir auf Null, ebenso 
einen Zähler N, der uns Auf- 


Zeile 370: 


Mit einer Schleife von J=1 bis 
J=6 lesen wir die DATS unse- 
res Tips ein, unabhängig da- 
von, ob diese auszugeben 
sind oder nicht. Denn wenn 
wir ein Spiel finden, das un- 
sere Bedingungen erfüllt, 
muß der DATA-Zeiger auch 
auf die richtigen Daten wei- 
sen. Durch IFS sorgen wir 
dafür, daß die Daten nur auf 
Wunsch ausgegegeben wer- 
den. Dem Ausdruck lassen 
wir zur besseren Trennung 
der einzelnen Zahlen noch 
ein Komma folgen. 


Zeile 380: 

NEXT sorgt für das Einlesen 
und den eventuellen Aus- 
druck der restlichen DATAS 
unseres Tips (vgl. vorige Zei- 
le). Im Falle des Ausdrucks 
löschen wir mit PRINTCHRS 
(20), also dem ASCII-Wert 
der DEL-Taste, das letzte, 
unnötige, Komma und begin- 
nen gleichzeitig eine neue 
Zeile. 


Zeile 390: 

Damit unsere Bildschirmaus- 
gabe nicht einfach nach oben 
wegSCROLLen kann und 


uns nicht genug Zeit zum 


Es geht nun an die Untersu- 
chung des nächsten Tips. 
Hierzu erhöhen wir den Feld- 
index I. Weiter geht es dann 
wieder mit Zeile 360, sofern 
wird das Listenende, welches 
mit Eins minus gekennzeich- 
net ist, noch nicht erreicht 
haben. 


Zeile 420: 

Am Ende der Lise angelangt, 
geben wir die Anzahl unserer 
Treffer: aus. Nach einer ab- 
schließenden Leerzeile kehren 
wir mit RETURN zum 
Hauptprogramm zurück, wo 
uns vielleicht noch weitere 


piel"str$(i+1)":"; <pb> 
378 forj=1to6:readkx: Arihenpehe 
r$x)","; eng? 
388 next :ifsthenprintchr$( 28) <pb> 
398 getx$:ifx$<>" "then41® <mm> 
400 getx$:ifx$<>" "then4Bd <mn> 
41a i=iti:ifw%li)<>-1then368 <ck> 
428 print”anzahl:"n:print:return <ch> 
438 rem ------------------- <be> 
448 rem lottodaten <am> 
458 rem ------------------- <ni> 
468 data 1,3,5,7,9,11 <ad> 
478 data 2,4,6,8,18,12 <gk> 
488 data 1,2,3,4,5,6 <pb> 
498 data 8,9,180,11,12,13 <pl> 
588 rem -—--- --— m <on> 
518 rem endemarkierung <ha> 
528 rem ------------------ <pg> 
538 data 8 <ih> 
SAB rem ==================222====== Cmm> 
S5@ rm programmende <kk> 
5608 rem ========================== chk> 


Lesen läßt, sorgen wir für eine 
Stoppmöglichkeit. Wir fra- 
gen ab, ob die Leertaste ge- 
drückt wurde. Ist dies nicht 
der Fall, so geht es weiter im 
Programm mit Zeile 410. 
Sonst folgt Zeile 400. 


Zeile 400: 

Solange die Leertaste nicht 
ein zweites Mal gedrückt ist, 
verharrt unser Programm in 
der durch Zeile 400 gegebe- 
nen Warteschleife. 


Zeile 410: 
Ob die DATAS unseres Tips 
ausgegeben sind oder nicht: 


iv; 


Ausgaben, die ebenfalls von 
der Unterroutine Gebrauch 
machen, erwarten. 


Zeile 460: 

Ab hier sind die Daten unse- 
rer Lottotips einzutragen. 
Zu Testzwecken ist dies in 
den Zeilen 460 - 490 schon 
einmal geschehen. 


Zeile 530: 

Das Ende der Daten ist mit 
einer Null zu kennzeichnen. 
Die Zeile 530 soll uns daran 
erinnern, dies auch am Schluß 
der Eintragung unserer wirk- 
lichen Tips zu tun. 


= » 


Ba 0 0 0 0 


Schnell, schneller 
am schnelisten 


Meist gibt es zu einem Weg auch eine Abkürzung. 
Wir zeigen Ihnen, wie aus einem Programm durch 
zwei zusätzliche Zeilen ein Autostartprogramm wird. 
Sind Ihre BASIC-Programme zu langsam? 

Wir helfen Ihnen, sie schneller zu machen. Hilfe- 
stellung für Spieleprogrammierer: Darstellung von 
Figuren mit Strings. Programmieren mit Script/Plus? 


In der letzten Ausgabe 
wurde ein Programm ab- 
gedruckt, mit dem aus ei- 
nem normalen Programm 
ein Autostartprogramm 
gemacht werden kann. 

In der Zwischenzeit sind 
wir auf einen wesentlich 
einfacheren Weg gesto- 
ßen: Wie Sie sicher wis- 


AUTOSTART 
MIT ZWEI ZEILEN 


sen, kann die Funktions- 


taste Fl über zwei Spei- 
cherstellen aktiviert wer- 
den. In 1373 steht die 
Anzahl von Zeichen, die 
noch abgearbeitet werden 
sollen, und in 1374 die 
Startposition im Funk- 
tionstastenspeicher. Da- 
mit läßt sich ein BASIC- 
Programm auf einfache 
Weise zu einem Selbst- 
starter machen. 

Zuerst wird die Funk- 
tionstaste Fl mit dem 
RUN-Befehl belegt: 


KEY1,CHR$(019)+“rU:“ 
<RETURN> 


Der Doppelpunkt ist nö- 
tig, damit nachfolgende 
Zeichen keinen Syntax- 
Error auslösen. Jetzt kann 
noch ein beliebiger Text 
oder eine LORES-Grafik 
(mit dem eingebauten 
Grafik-Zeichensatz) auf 
den Bildschirm gezeich- 
net werden. Auch Farbe 
ist möglich, da der Farb- 
speicher ebenfalls mit ab- 
gespeichert wird. Jetzt 
kann alles zusammen mit 
den Funktionstasten und 
den beiden Speicherstel- 
len zur Steuerung der 
Funktionstasten abgespei- 
chert werden: 


POKE44,5:POKE43,93: 
POKE1373,4:POKE1374, 
0:DSAVE“name“ 
<RETURN> 


Nachdem das Programm 
abgespeichert ist, startet 
es sich automatisch. 

Am besten wird der Rech- 
ner kurz ausgeschaltet, 
um das Ergebnis zu te- 
sten. Das unter “name“ 
abgespeicherte Programm 
muß nun mit: 


LOAD‘“'name“,8,1 
<RETURN> 


absolut geladen werden. 
Zuerst erscheint beim La- 
den der Text auf dem 
Bildschirm, und nach Be- 
endigung des Ladevor- 
gangs startet es sich von 
selbst. Einfacher geht es 
nicht mehr. 


BASIC- PROGRAMME 


AUF TRAB GEBRACHT 


Selbst wer das Handbuch 


auswendig kennt und alle 
Befehle vollständig be- 
herrscht, ist noch lange 
kein perfekter Program- 
mierer. Ein gutes BASIC- 
Programm wird vor allem 
von zwei Faktoren be- 
stimmt: 

a) übersichtliche Pro- 
grammierung: Jeder ande- 
re Programmierer sollte 
das Programm verstehen 
können. Zwar ist dies bis 
zu einem gewissen Grad 
eine Geschmacksfrage, 
jedoch unserer Meinung 
nach eine wichtige Frage 
der Programmierung. 

b) Geschwindigkeit des 
Programmablaufs: Sie 
wird ausschließlich durch 


den Interpreter beein- 
flußt und kann durch all- 
gemein gültige Regeln 
optimiert werden. 


Um den Abiauf eines 
BASIC-Programms zu be- 
schleunigen, sind Kennt- 


nisse über die Vorgehens- 
weise des Interpreters un- 
erläßlich. Das Programm 
steht verschlüsselt im Pro- 
grammspeicher. Jedem 
Befehlswort und jedem 


GESCHWINDIGKEIT 
IST KEINE HEXEREI 


ASCII-Zeichen ist eine be- 
stimmte Zahl zugeordnet, 
die der Interpreter in eine 
für den Computer ver- 
ständliche Sprache über- 
setzen muß. Außerdem 
zeigt eine Null im Spei- 
cher das Ende einer 
BASIC-Zeile an. Dieser 
folgen vier Speicherstel- 
len, in denen die Adresse 
der Folgezeile und die Zei- 


lennummer stehen. Der 
Interpreter muß also Zei- 
chen für Zeichen aus dem 
Speicher lesen und richtig 
umsetzen. Das braucht 
Zeit. Indem besonders 
langwierige Vorgänge ver- 
mieden werden, kann die 


Programmgeschwindig- 
keit drastisch beschleunigt 
werden. 


Zeitmessung mit TI$ 


Die vom Interpreter benö- 
tigte Zeit kann leicht ge- 
messen werden: Die inter- 
ne Uhr wird mit TI$ 
=“000000“ auf Null ge- 
stellt. Wenn die zu unter- 
suchenden Befehle durch- 
geführt sind, wird die Zeit 
mit PRINT TI ausgegeben. 


ZEIT, WER 
HAT DIE SCHON? 


Allerdings läßt sich die 
Zeit, die für einen einzi- 
gen Befehl gebraucht 
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wird, nicht messen, son- 
dern nur eine Kette von 
Befehlen gleichzeitig. Als 
Zeitmaß wollen wir im 
weiteren eine 1/60stel Se- 
kunde als eine Zeitein- 
heit bezeichnen (PRINT 
II gibt die Zeit so an). 


In der Kürze 
liegt die Würze 


Da alles, was im Speicher 
steht, auch abgearbeitet 
werden muß, sollten un- 
nötige Leerzeichen und 


REM-Zeilen, die nur aus 
Gründen der Übersicht- 
lichkeit eingefügt wurden, 
nach Fertigstellung des 
Programms entfernt wer- 
den. Dazu eignet sich un- 
ser BASIC-Kompressor 
im COMMODORE WELT 
Special C16/PLUS4 

5/88 sehr gut. 

Beispiel 1: 

20 for i=1 to 5000: next 
Beispiel 2: 

20 for i=1 to 5000 30 next 
Beispiel 3 


20 for i=1 to 5000 30 nexti 


Beispiel 4: 
20::for i=1 to 5000 
30 ::::ınexti 


Die erste Schleife braucht 


398 Einheiten. Werden 
zehn Leerzeichen einge- 
fügt, so dauert es 496 und 
bei zehn Doppelpunkten 
sogar 895 Einheiten, also 
mehr als doppelt so lange. 
Noch langsamer wird das 
Ganze, wenn NEXT in 
einer extra Zeile steht 
oder anstatt NEXT 
NEXTI geschrieben wird. 
Merke: Die Schleifenva- 
riable hinter NEXT ist 
nur notwendig, wenn es 
bei verschachtelten Schlei- 
fen Verwechslungen ge- 
ben könnte. 


Unnötige Sprünge 
vermeiden 


Bei einem GOTO- oder 
GOSUB-Befehl wird zu- 
erst die Sprungadresse gele- 
sen und mit der aktuellen 
Zeilennummer verglichen. 
Ist das Sprungziel größer, 
wird ab der nächsten Zei- 
le jede folgende Zeilen- 
nummer mit dem Sprung- 
ziel verglichen, bis die 
Zeile erreicht ist. Ist die 
Sprungadresse kleiner, so 
beginnt die Suche am 
Programmanfang. 


PROGRAMME LANG- 
SAMER MIT 
GOTO/GOSUB 


Der Unterschied wirkt 
sich vor allem bei langen 
Programmen aus, bei de- 
nen bestimmte Unterpro- 
gramme oft angesprun- 
gen werden. Bei jedem 
GOTO oder GOSUB soll- 
te also vorher überlegt 
werden, ob sich eine Ab- 
trennung des Programm- 
teils lohnt und wo das Un- 
terprogramm stehen soll. 
Als Faustregel gilt: Un- 
terprogramme, die nur 
einmal durchlaufen wer- 
den, stehen am Programm- 
ende und häufig gebrauch- 
te Routinen am Anfang. 


20 i=itl:if i<2000 then 20 
90 i=i+l:if i<x2000 then 90 


Zum Beispiel braucht die 
Programmzeile mit Num- 
mer 20, nur 1059 Zeitein- 

heiten (=1 7,65 Sekun- 
den), während sie mit der 
Nummer 90 bereits 1208 
Einheiten benötigt, ein 
Laufunterschied von etwa 


2,5 Sekunden. Hierbei ist 
die Länge der vor Zeile 90 
liegenden BASIC-Zeilen 
unwesentlich. Der Inter- 
preter liest immer nur die 
Koppeladressen, die an- 
zeigen, wo die folgende 
Zeile beginnt, und die Zei- 
lennummer steht. Solche 
Schleifen sollten ohnehin 
nie mit GOTO gemacht 
werden, eine DO/LOOP/ 
UNTIL-Schleife eignet 
sich dazu besser: 


20 do:i=it1:loop 
until i=2000 

90 do: j=itl:loop 
until i=2000 


Dafür werden, unabhän- 
gig von der Zeilennum- 
mer, nur 978 Einheiten 
gebraucht. Bei DO/LOOP- 
und FOR/NEXT-Schlei- 
fen wird nämlich der Be- 
ginn der Schleife beim 
ersten Durchlauf abgespei- 
chert und muß daher 
nicht extra gesucht wer- 
den. Auch das Lesen der 
Zeilennummer bei GOTO 
und GOSUB kostet Zeit. 
Deshalb sind kleine Zei- 
lennummern besser. Ein 
fertiges, nicht mehr zu 
änderndes Programm, 
sollte stets mit 
RENUMBER]I,1 neu nu- 
meriert werden, oder al- 
ternative, in gleichmäßi- 
gen Zweier-, Fünfer- oder 
Zehner-Schritten durch- 
numeriert sein. Allein 
wegen der Übersichtlich- 
keit ist dies zu empfehlen. 


Standard-Variablen - 
vordefinieren 


Taucht im Programm ei- 
ne neue Variable auf, so 
wird der Variablenname 
vom Interpreter hinter 
die bereits definierten 
Variablen geschrieben. 
Wird dieser Variablen ein 
neuer Wert zugewiesen, 
muß der Name vom Be- 
ginn des Variablenspei- 


chers an gesucht werden. 


VARIABLE 
RICHTIG EINSETZEN 


Damit die am häufigsten 


benötigten Variablen 
schnell gefunden wer- 
den, sollten sie vordefi- 
niert werden. Dies ge- 
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schieht mit der DIM-An- 
weisung aus dem BASIC- 
Wortschatz. Taucht im 
Programm eine Zahl häu- 
figer auf, wird auch sie 
als Variable definiert. 


10 dim a(100000), i,b$, 

c%:k=1000 

20 ti$=“000000“ 

30 fori=1t05000:b 
=1000:next 

40 printti 


In diesem Beispiel wird 
bei jedem Durchlauf die 
Zahl 1000 gelesen und 
interpretiert. Daher be- 
nötigt Zeile 30 ganze 
1642 Einheiten. Wird in 
Zeile 30 die Zahl 1000 
durch die Variable K er- 
setzt, werden nur noch 
892 gebraucht. Dieser 
Fehler wird besonders 
häufig bei Spielen ge- 
macht, bei denen in den 
Bildspeicher gePOKEd 
wird, zum Beispiel 
POKE 3072+40*y+x. 
Die Anzahl der verschie- 
denen Variablen sollte so 
klein wie möglich gehal- 
ten werden. Wird ein 
Wert einer Variablen 
nicht mehr benötigt, läßt 
sich der Variablen-Name 
wiederverwerten. 


GESCHWINDIGKEITS- 
STEIGERUNG IM 
BASIC 


Auch der Variablentyp 
spielt eine Rolle bei der 
Geschwindigkeitssteige- 
rung. Zwar brauchen 
Arrays mit Integerzahlen 
(mit %) wesentlich weni- 
ger Speicherplatz. Aber 
wenn es darum geht, Re- 
chenoperationen damit 
auszuführen, so sind nor- 
male Variablen etwas 
schneller, da der Compu- 
ter intern immer mit 
Fließkommazahlen arbei- 
tet und diese im Fall von 
Integerzahlen erst um- 
rechnen muß. 

Probieren Sie diese Tips 
einmal alle bei Ihren Pro- 
grammen aus. Sie wer- 
den staunen, was sich da 
herausholen läßt. Soll- 
ten diese Tips für Ihr Pro- 
gramm noch nicht genü- 
gen, werden Sie in der 
nächsten SEITE 16 weite- 
re Möglichkeiten zur Ge- 


SEC 


schwindigkeitssteigerung 
finden. 


Figuren als Strings 


Bei den meisten Spielen, 
die mit veränderten Zei- - 
chensatz arbeiten, wer- 
den die Figuren aus meh- 
reren Zeichen zusammen- 
gesetzt. Einige Autoren 
machen dabei den Fehler, 
diese Zeichen mit CHAR, 
POKE oder PRINT ein- 
zeln auszugeben. Die ein- 
fachste Methode ist die 
Anwendung des CHAR- 
Befehls. Anstatt aber un- 
tereinanderstehende Zei- 
chen einzeln auszugeben, 
kann man die ganze Fi- 
gur in einem einzigen 
String zusammenfassen. 
Damit dies leichter ver- 
ständlich wird, haben wir 
ein kleines Reaktionsspiel 
entworfen (Würfelstop), 
bei dem Würfelaugen ver- 
glichen werden müssen: 


STRINGS ALS 
ZEICHENSATZHILFE 


Die Darstellung der mög- 


lichen Würfeloberflächen 
sind im Stringfeld W$ 
enthalten. Der Trick bei 
der Darstellung der Wür- 
fel besteht in Zeile 100 
in der Definition von B$. 
Ein Würfel hat neun Fel- 
der, die in drei Dreier- 
Reihen zusammengefaßt 
sind. Es wird nun zu- 
nächst die erste Reihe aus- 
gegeben, mit B$ der Cur- 
sor eine Zeile tiefer und 
drei Zeichen zurückge- 
setzt und so weiter. Tip- 
pen Sie das Spiel ein, Sie 
werden sehen, wie schnell 
das geht. Wählen Sie am 
Anfang eine höhere Zahl 
für die Geschwindigkeit 
zum Beispiel 50. Es er- 
scheinen dann zwei Wür- 
fel, wobei der linke unbe- 
wegt bleibt und der rech- 
te sich schnell verändert. 
Stimmen die Würfelaugen 
überein, muß eine Taste 
gedrückt werden. Ziel ist 
es, möglichst viele rich- 
tige Stopversuche zu er- 
reichen und möglichst 
wenige Übereinstim- 
mungen zu verpassen. D 


Programmieren Sie mit 
LABELs 


Was das Programmieren 
mit BASIC oft besonders 
unübersichtlich macht, 
sind die Zeilennummern 
bei Sprungbefehlen. 

Bei einem längeren Pro- 
gramm kommen in der 
Regel viele GOTO- oder 
GOSUB-Befehle vor. 
Diese Adressen sollten no- 
tiert werden, um Fehler 
auszuschließen. Nach je- 
dem RENUMBER ändern 
sich diese Zeilennummern 
jedoch und man muß dau- 
ernd nachsehen, welche 
Routinen nun gerade an- 
gesprungen wird. 
Besonders verhängnisvoll 
kann sich eine falsche 
Zeilennummer bei einem 
TRAP-Befehl auswirken. 
Solche Fehler sind oft 
schwer zu finden. Wie 
schön wäre es doch, wenn 
man statt GOTO 1020 
schreiben könnte GOTO 
EINGABE. Mit einem ein- 
fachen Trick und einem 
Textverarbeitungssystem 
wie Script/Plus ist dies 
möglich. Betrachten Sie 
folgendes Beispielpro- 
gramm: 


Beispielprogramm 
zu Label-Definitionen: 
10 trap‘ ENDE“ 
20 goto“START“ 
:rem ueberspringen 
der label-definitionen 
30 goto“PRG1“ 
:rem unterprogramm | 
40 goto“PRG2“ 
:rem unterprogramm 2 
50 “START “input“1 oder 
2°;g:ifg=2then“PRG2“ 
60 “PRGI “print“unter- 
programm 1‘:goto 
“ENDE“ 
70 “PRG2‘“ print 
“unterprogramm 2“ 
80 “ENDE“end 


Anstelle der Zeilennum- 
mern werden die Namen 
der Zieladressen geschrie- 


ben. Damit sich diese 
vom Rest des Programms 
deutlich abheben, werden 
sie in Anführungszeichen 
gesetzt und groß geschrie- 
ben. Die Zeile, die von 
GOTO... angesprungen 
werden soll, beginnt - 
ebenfalls mit diesem Na- 
men. Außer der besseren 
Übersichtlichkeit hat die- 
ses Verfahren einen wei- 
teren Vorteil. Ein 
RENUMBER kann pro- 
blemlos durchgeführt 
werden und geschieht 
blitzschnell. 


LABELS STATT 
GOTO UND GOSUB 


Natürlich ist ein solches 


Programm nicht lauffä- 
hig, weil Sie keinen Ami- 
ga besitzen, der dies mit 
seinem BASIC kann. 
Nach der Fertigstellung 
müssen die LABELs wie- 
der in Zahlenwerte um- 
gesetzt werden. Ein ent- 
sprechendes Programm 
ist in Vorbereitung. Die 
Umsetzung kann mit we- 
nig Mühe jedoch auch 
mit Script/Plus gesche- 
hen. Dazu wird das Pro- 
gramm als SEQ-File ab- 
gespeichert. Dieses File 
wird mit Script/Plus wie- 
der eingeladen, die Na- 
men werden mit dem 
SEARCH & REPLACE- 
Befehl durch die Zeilen- 
nummern ersetzt. 


open8,8,8,""name,s,w‘“ 
:cmd8:list:close8 DO 


SEO-FILESs in 


Programme umwandeln 


Um die sequentiellen Files 
wieder in lauffähige Pro- 
gramme umzuwandeln, 
haben wir das Programm 
‘SEQ-TO-PROGRAMM'‘ 
entwickelt: 


(SEQ) Sequentielle 
Programm-Files umwan- 


Software- 


Service! 
Coupon S. 81 
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deln in lauttähige (PRG) 
Programm-Files: 
62999 _ wk Sseq-tO- 
gramm#x*x* 
63000 Dokes5. 1:poke56, 
80: celr:input 
‘programmname“; 


p 
63010 open2,8,2,p$+ 
[73 S ad 


:rem kanal oeffnen 
zum seq-file lesen 

63020 fori=20500to 
50000: get#2,a$: 
pokei,asc(a$):ifst 
=0thennext 

63030 pokeit1,255: pokei 
+2,13: close2:i= 


20500 
63040 printchr$( 147); 
:rem bildschirm 
clr-kode 
63050 N print 


(a); 
63060 ifa=13then63080 
:rem return-kode 
63070 i=it1:g0t063050 
63080 keyl1,chr$(019) 
+chr$(0 1 u a 
+str$(i+1)+":ifer 
<>118g063040“ 
+chr$(013) 
63090 poke2035,0: 
sys56364 
:rem fl taste 
aktivieren 


Mit Hilfe dieses Pro- 
gramms ist es auch mög- 
lich, ein Programm in 
Script/Plus zu schreiben, 
und in ein normales Pro- 
gramm umzuwandeln. 
Professionelle Werkzeug- 
maschinen können mit 
diesem Trick program- 
miert werden, wie folgt: 
Befehlscode im Textver- 
arbeitungsprogramm ein- 
geben, mit allen Vorteilen 
die ein solches Programm 
bieten kann, suchen — 
ersetzen — nachladen — 
korrigieren — kopieren — 
einfügen — wiederholen — 
löschen — kontrollieren 
etc. Diese Methode ist der 
Eingabe mit einem Ein- 
Zeilen-Editor mit Zahlen- 
codeeingabe um einiges 
überlegen. Dann über RS 
232-Schnittstelle die Da- 
ten in original ASCII- 
Code in den RAM-Spei- 
cher der Werkzeugmaschi- 
ne schreiben und los geht 
die Produktion. Der kür- 
zeste Weg ist oft der 
optimale. 

Rudolf Schmid-Fabian 


An dieser Stelle werden 
wir Hard- und Software- 
Produkte für den C16/ 
C116/Plus4 vorstellen 
und erläutern, wenn mög- 
lich, die Bezugsadressen 
nennen oder auf den Her- 
steller verweisen. Wenn 
nichts anderes angegeben 
ist, vergessen Sie bitte 
nicht, bei Anfragen einen 
frankierten Rückum- 
schlag beizulegen. 


EPROMPLATINE 
FÜR C16/PLUS4 


Ab sofort wird eine 
Epromplatine für den 
C16 beziehungsweise 
Plus4 angeboten. Die Pla- 
tine ist mit zwei hoch- 
wertigen Präzisionssok- 
keln ausgestattet und er- 
möglicht die Benutzung 
von ein oder zwei 
Eprom der Typen 2764 
oder 27128. 

Eine Beschreibung er- 
klärt die Anwendung 
der Platine. Der Preis für 
dieses Zubehör liegt in- 
klusive Original-Commo- 
dore-Gehäuse bei 18 
Mark. Wir meinen, ein 
akzeptierbarer Preis für 
diese professionell gefer- 
tigte Karte mit vergolde- 
ten Kontakten. 


NEUER KATALOG 


Die Firma Wiesemann 
& Theis GmbH Microcom- 
putertechnik, Hersteller 
und Vertreiber diverser 
Interfaces, Buffer, Lei- 
stungstreiber, T-Switches, 
Kabel-, Video-, Tastatur- 
und Display-Produkten, 
hat einen neuen vierfarbi- 
gen Produktekatalog auf- 

elegt. 

in Beispiel: Ein Hard- 
ware-Interface/Buffer er- 
möglicht den Anschluß 
eines Gerätes (Drucker, 
IBM PC etc.) mit V.24 
(RS232)-Schnittstelle an 
die serielle Commodore- 
Bus-Schnittstelle (C64/ 


"ale 16/ ’ a 
us4). 2 — nn tronikfachhandel aufge- 
Der Katalog ist kostenlos PLUS4-TASTATUR taucht. Wer sich immer 

zu beziehen von: AN C116 noch mit der Gummitasta- 
Wiesemann & Theis GmbH —— — tur des C116 herumärgert 
Abteilung: CW oder wegen ihr den C116 
Winchenbachstraße 3-5, Ein Restposten von Plus4- in die Ecke gestellt hat, 
D-5600 Wuppertal2. D Tastaturen ist im Elek- kann den Rechner wieder 
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reaktivieren. Für etwa 30 
Mark ist eine Plus4-Tasta- 
tur zu erwerben. Vier Ge- 
häuseschrauben öffnen, 
Tastaturstecker abziehen, 
Gummitastatur entfernen, 
neue Tastatur einstecken 
und los geht die Eingabe. 
Zwar ist die Plus4-Tasta- 
tur etwas größer als das 
gesamte Gehäuse des C116 
und kann nicht eingebaut 
werden. Aber ein geschick- 
ter Bastler kann sie und 
die Platine separat auf Ei- 
genkonstruktionen unter- 
bringen. Die Tastatur ist 
auch als Ersatz für eine 
defekte Plus4-Tastatur 

zu verwenden. Zusätz- 
lich zur Tastatur erhält 
man eine VC20-Platine, 
die als Druckpuffer oder 
Druckertreiber umgebaut 
werden kann: Eingabe 
über eine Plus4-Tastatur, 
Anpassung möglich. Info 
auf AnfragevonCW. D 


64 KBYTE RAM 
FÜR C16/C116 


Wer sich immer noch mit 
den 12277 BYTES FREE 
herumschlägt, dem sei ei- 
ne RAM-Erweiterung na- 
hegelegt. Die dann er- 
scheinende Systemmel- 
dung 60671 BYTES 
FREE ermöglicht auch 
die Eingabe von Program- 
men, die dem Plus4 vorbe- 
halten waren. Dieses 
Steckmodul für den Ex- 
pansionsport läuft beim 
größten Teil der C16-Rech- 
ner ohne weiteren Ein- 
griff in den Computer. 

Bei einem anderen Teil der 
Baureihe C16 muß das in- 
terne RAM ausgeschaltet 
werden. Dies erfordert ei- 
nen kleinen Eingriff in 
den Rechner, eine Leiter- 
bahn muß durchtrennt 
werden. 

Eine Anleitung zur Nut- 
zung der Erweiterung 


"liegt bei. Der Preis von 


39,90 Mark entspricht der 
Leistung der 64-KByte- 
Erweiterung. Der neue 
Katalog ‚Volles Pro- 
gramm“ ist anzufordern 
bei: 

DELA 

ELEKTRONIK GMBH 
Abteilung: CW 
Maastrichter Straße 23, 
D-5000 Köln 1. 0 
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ZEICHENSATZ-ANPASSUNG 


Deutscher 
Zeichensatz: 
Kein Problem 

für ihren 
Ci6/P4 


A 


Unsere Zeichensatzprogramme wurden neu über- 
arbeitet. Statt vieler Einzelprogramme gibt es jetzt 
nur mehr zwei Teilprogramme. Als Ergänzung ist 
nun auch die Ausgabe mit dem Plus4 über Centronics- 
kabel möglich. Ein Komprimierungsprogramm sorgt 
für superkurze Ladezeiten. Anpassungsvorschläge 
finden sich in Hülle und Fülle. 


DIE EINHEIT IN DER DREIHEIT 


Das Programm besteht nun aus zwei Teilprogrammen. 


Programmteil drei läßt sich auch in Verbindung mit 
unseren früheren Zeichensatzprogrammen nutzen. Es 
vereint die einzelnen Teile zu einem einzigen Pro- 
gramm, das wesentlich kürzer als einer der ursprüng- 
lichen Teile ist. Klingt ein wenig mystisch, nicht 
wahr? Das Geheimnis dabei ist, Teil eins und zwei 
sind Basic-Programme, die die verschiedensten An- 
passungsarten' zulassen. Teil eins mit Namen 
“SCREEN/KEYBOARD“ ermöglicht die Definition 
eines neuen Bildschirmzeichensatzes und die Ände- 
rung der Tastaturbelegung. Beides ist nun unabhängig 
voneinander, weswegen zur Umbelegung der Tastatur 
im Gegensatz zu vorher nicht noch unnötigerweise 
die Eintragung der Zeichenmatrix vorgenommen wer- 
den muß, oder umgekehrt. Die Verlegung des Basic- 
Endes und somit der Schutz des neuen Bildschirmzei- 
chensatzes erfolgt nun nicht fehlerhafterweise erst 
am Ende des Programmes, wo es schon längst zu spät 
sein kann und die Basic-Variablen dem Zeichensatz 
unter Umständen schon den Garaus gemacht haben 
können, sondern bereits am Programmanfang. Eine 
weitere Besonderheit ist, daß die für den Umtausch 
der im Tastaturpuffer liegenden Zeichen verantwort- 
liche Maschinenroutine nicht fest im Stack lokalisiert 
ist, sondern durch. eine einfache Änderung der Routi- 
nenadresse nach Belieben im ungebankten RAM-Be- 
reich verschoben werden kann. Das gleiche gilt auch 
für den Programmteil Nummer zwei, bei welchem 
gleich drei Blöcke von Maschinenroutinen vorliegen. 
Das sind die Druckerausgaberoutine mit eventueller 
ASCII-Wandlung, die Centronics-Ausgabe, und die 
Routine, die die Einbindung der Druckerausgabe in 
die integrierte Software des Plus4 besorgt. Teil zwei 


die „Druckeranpassung“ beinhaltet so die verschie- 
densten Anpassungsmöglichkeiten, wie zum Beispiel 
die Auswahl, ob serielle Ausgabe oder Centronics, ob 
Commodore-Code oder ASCII, ob integrierte Plus4- 
Software oder normal, und ob eine Änderung der 
Geräte- und der Sekundäradresse vorgenommen wer- 
den soll. Anstatt bei der Druckerausgabe nur den Aus- 
gabecode in einen anderen zu wandeln, kann eine gan- 
ze Code-Sequenz an den Drucker ausgegeben werden, 
wodurch auch beliebige Zeichen mittels direkter Na- 
delansteuerung frei definierbar sind, und somit auch 
grafikfähige Drucker, die keinen deutschen Zeichen- 
satz haben, auf diese Weise einen solchen verpaßt be- 
kommen können. Teil drei erzeugt ein viertes Pro- 
gramm, das sich aus den bereits fertig installierten 
Maschinenroutinen und Datenteilen der ersten bei- 
den Programme zusammensetzt. Da hier keine An- 
passungen mehr zu erfolgen brauchen, kann dieses 
Programm sehr kurz ausfallen. Datassettenbenutzer 
werden ıhre helle Freude daran haben. Das Programm 
schreibt die erfaßten Daten einfach wieder in die rich- 
tigen Speicheradressen und schon ist die Zeichensatz- 
und Druckeranpassung fertig. 
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„SCREEN/KEYBOARD", DIE BILDSCHIRM- 
UND TASTATURANPASSUNG 


Wenn Sie Zeile 125 so lassen, wie sie ist, kommt die 
Tastaturroutine in den Stack zu liegen. Erfahrene Ma- 
schinenprogrammierer können diese Adresse ihren 
Bedürfnissen gemäß verändern. In Zeile 150 steht die 
Adresse des neuen Zeichensatzes. Es sollten hier nur 
gerade Zahlen Verwendung finden. Für eigene Pro- 
gramme ist der zur Verfügung stehende Speicherplatz 
abzüglich zwei KByte zu empfehlen. Für einen Haupt- 
speicher von 64 KByte allerdings darf nur eine 60 
angegeben werden, da sonst der Zeichensatz in die 
1/O-Adressen käme und so einen Systemabsturz her- 
beiführen würde. Es gilt also folgende Tabelle: 


Hauptspeicher Zeichensatz (in KByte) 


16 14 
32 30 
64 60 


Für die integrierte Software des Plus4 nehmen Sie bit- 
te auch 60 KByte als Zeichensatzadresse. 

Bei Script-Plus sollten Sie folgendes wissen. Eigentlich 
ist es beinahe egal, wo der Zeichensatz steht. Er darf 
aber nicht im gebankten RAM-Bereich ab 32 KByte 
stehen, und darf auch nicht mit unseren Anpassungs- 
programmen kollidieren. Script-Plus fragt den TED- 
Chip nach der Lage des Zeichensatzes ab, kopiert ihn 
an den Anfang des zur Verfügung stehenden Speichers 
und stellt den TED-Chip dementsprechend um. So 
können Sie ruhigen Gewissens 14 KByte als Zeichen- 
satzadresse nehmen. Wichtig ist, sofern Sie einen Rech- 
ner mit nur 16 KByte Hauptspeicher Ihr eigen nennen, 
daß Sie ihn durch das Verlegen des Basic-Endes mit ei- 
nem entsprechenden Eintrag in Zeile 170 vor dem 
Überschreiben durch Basic-Variablen schützen. Wenn 
Sie allerdings die Zeichensatzadresse 12 KByte wäh- 
len, ist letzeres nicht mehr nötig, da erfahrungsgemäß 
die Variablen nicht bis an Ihren Zeichensatz kommen. 
Sollte Ihnen Ihr altes Zeichensatzprogramm auf Ihrem 
nicht erweiterten C16/C116 Schwierigkeiten gemacht 
haben, so können Sie diese durch eine Zwölf in Zeile 
150 beseitigen. ; 
Normalerweise sollte durch ein “J“ in Zeile 170 stets 
das Basic-Ende verlegt werden. Wenn Sie allerdings 
gerne den Basic-Anfang hochsetzen und Ihren Zeichen- 
satz lieber am Anfang ab $1000 (4096) hätten, so 
steht Ihnen diese Möglichkeit durch ein “*“N“ in Zeile 
170 offen. 

Kommen wir nun zu einem Kernpunkt des Anpas- 
sungsprogrammes, die eigentliche Bildschirmanpas- 
sung. Dort, wo früher Buchstaben standen, haben wir 
nun aus Gründen besserer Lesbarkeit statt dessen die 
ASCII-Werte der Zeichen erfaßt, und das Ende dieser 
Tabelle mit einer “‘—1‘“ markiert. Diese Tabelle in den 
Zeilen 190 und 195 korrespondiert mit den Daten 

der Zeichenmuster in den Zeilen 210 bis 285. Die 
ASCII-Werte in der ersten Tabelle.haben noch nicht 
unbedingt etwas mit den tatsächlichen Tasten, auf de- 
nen später einmal diese Zeichen erscheinen sollen. zu 
tun, wohl aber mit den Codes, unter denen diese im 
Hauptspeicher des Rechners erfaßt werden sollen. 
Auch die Werte, die der Drucker später einmal be- 
kommt, können davon unabhängig sein, sofern mit 
dem Programm ‚„Druckeranpassung‘ dafür Sorge ge- 
tragen wird. Wichtig ist nur, daß der Rechner, bezie- 
hungsweise das Verwendung findende Programm, 
wenn vielleicht nicht die vorgesehenen ASCII-Codes, 


so doch wenigstens diejenigen, die dasselbe Zeichen- 
muster erzeugen, auf den Bildschirm ausgeben läßt. 
So sind zum Beispiel Codes 192 bis 223 identisch 
mit 96 bis 127, Codes 224 bis 254 identisch mit 160 
bis 190, und Code 255 identisch mit 126. Aus Grün- 


den besserer Übersichtlichkeit ist aber doch der ASCH- 


Wert zu wählen, der beim Abfragen der entsprechen- 
den Taste mit ‘10 GETKEYX$:PRINTASC(X$)‘ auf 
dem Bildschirm erscheint. Welche Codes wir verwen- 
den können, hängt, wie gesagt, von der zur Anwen- 
dung kommenden Software ab. In eigenen Program- 
men sind Sie ziemlich frei in der Wahl, auf welche 
Zeichenmuster Sie anstelle der deutschen Umlaute 
verzichten wollen. Es empfiehlt sich aber, wenn Sie 
bereits einen Commodore-Drucker mit deutschem 
Zeichensatz Ihr eigen nennen, diejenigen ASCII-Wer- 
te zu verwenden, die bei Ihrem Drucker bereits den 
Ausdruck des entsprechenden Zeichens bewirken. 
So können Sie zum Beispiel mit der integrierten 
Software auf das zweite Programm, die „Druckeran- 
passung‘ völlig verzichten. Für „äöüß‘‘ können Sie 
die Werte 251 bis 254 oder 187 bis 190 verwenden, 
für „AÖU“ die Werte 219 bis 221 oder 123 bis 125, 
für „‚c‘‘ stehen Ihnen gar drei Werte zur Auswahl, 
nämlich 126, 222 und 255. Für Script-Plus steht die 
Sache anders. Da dieses Programm fast alle unsere 
schönen Commodore-Grafikzeichen eliminiert, müs- 
sen wir uns auf die uns verbleibenden beschränken. 
In den Zeilen 190 und 195 sehen Sie die von uns aus- 
findig gemachten ASCII-Werte, die sich leider völlig 
von denen, die an den Drucker auszugeben sind, un- 
terscheiden, die „Druckeranpassung‘“ wird in diesem 
Falle daher zum unbedingten Muß. Die ASCII-Werte 
in den Zeilen 190 und 195 korrespondieren mit der 
Zeichenmatrix-Tabelle in den Zeilen 210 bis 285 in 
folgender Weise. Dem ersten ASCII-Wert ist die erste 
Zeichenmatrix zugeordnet, dem zweiten die zweite 
und so fort. Jede Zeichenmatrix besteht aus acht 
Data ., die, binär gewandelt, das Zeichenmuster sicht- 
bar werden lassen. 

Da Sie vielleicht weitere Zeichenmuster benötigen, 
geben wir Ihnen diese an die Hand. 
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Weitere Zeichenmuster: 


60, 102, 110, 110, 96, 98, 60,0 (Klammeraffe) 
12, 18, 48, 124, 48, 98, 252, 0 (engl. Pfund) 
60, 96, 60, 102, 60, 6, 60,0 (Paragraph) 


Wir hoffen, Ihnen damit geholfen zu haben, für den 
Fall, daß Sie auch gerne das Paragraphenzeichen ver- 
wenden möchte, oder auf den Klammeraffen und 
das Pfundzeichen nicht gerne verzichten möchten. 


TASTATURANPASSUNG 


Nun wird es richtig ernst. Mit der Tastaturanpassung 


bestimmen wir, welcher Code bei einem bestimmten 
Tastendruck wirklieh in den Rechner wandert. Wir 
müssen nun genau wissen, welche Codes die verwen- 
dete Software annimmt. Wir vermögen aber auch un- 
sere Tastatur mit verhältniswenig Aufwand so umzu- 
belegen, daß wir plötzlich eine DIN-Tastatur vor uns 
haben. Betrachten wir zunächst einmal, welche Hin- 
dernisse uns die integrierte Software in den Weg legt, 
und woran auch Kingsoft mit seinem deutschen Zei- 
chensatz gescheitert ist. Wenn wir jetzt nicht die 
Codes 251 bis 254 für die kleinen deutschen Umlau- 
te verwenden, so erwartet uns das gleiche Schicksal. 
Auch die integrierte Software vollführt intern eine 
Zeichenwandlung. Statt den, soeben angegebenen 
Zeichen, stehen darauf plötzlich um 64 verminderte 
Werte im Rechner, die jedoch ebenfalls den Aus- 
druck von „äöüß‘ bewirken. Hätten wir jedoch gleich 
die verminderten Werte gewählt, so wären plötzlich 
irgendwelche Grafikzeichen oder sonstiges auf dem 
Bildschirm oder Drucker die Folge, denn die vermin- 
derten Werte erfahren eine andere Umwandlung. 

Dies zu wissen, ist wichtig für die „Druckeran- 
passung‘, bei der wir uns ansonsten wundern müßten, 
weshalb wir die eingegebenen Zeichen plötzlich nicht 
mehr zu finden vermögen. Für „ÄÖU‘ verwenden wir 
die Codes 219 bis 221, das „‚c‘“ brauchen wir nicht 
anzupassen, sofern wir nicht die Taste umbelegen wol- 
len. Für Script-Plus nehmen wir die bereits in den Zei- 
len 190 und 195 vorgestellten Codes, wobei wir eben- 
so auf das ‚‚c“ verzichten können. Es bleibt nun nur 
die Qual der Wahl, auf welche Tasten wir unsere Um- 
laute legen möchten. Zu diesem Zweck gibt es wieder 
zwei korrespondierende Tabellen. In die Zeilen 315 
bis 320 tragen wir den ASCII-Wert der gedrückten 
Taste ein, in die Zeilen 330 bis 355 den ASCII-Wert, 
der daraufhin anstatt dessen in den Rechner gelangen 
soll, sofern die Software mitspielt. Wenn Sie im Rech- 
nerhandbuch die Tabelle mit den ASC- und CHR$- 
Codes aufschlagen, so können Sie die von uns gewähl- 
te Belegung ablesen. Mit PRINT CHR$(X)‘, wobei 

X der gewählte Wert ist, können Sie dieses aber bei 
nicht installiertem Zeichensatz auch auf dem Bild- 
schirm ersehen. Im Anhang dieses Artikels bringen 
wir weitere Anpassungsvorschläge. 


DIE DRUCKERANPASSUNG 


Sei es, daß Ihr Drucker andere Codes braucht, als die 


Software verkraftet, sei es, daß Sie unter anderer Ge- 
räte- und Sekundäradresse den Drucker ansprechen 
müssen, sei es, daß Sie einen Centronics-Drucker ha- 
ben und diesen nicht über ein Interface, sondern am 
Plus4 mit dem in der CW 12/87 erstmalig vorgestell- 
ten Centroncs-Kabel betreiben wollen, die „Drucker- 
anpassung‘‘ macht es möglich. 

Die drei Blöcke von Maschinenroutinen sind auch 


hier frei verschiebbar. In den Zeilen 150 und 160 
finden Sie die Anfangsadressen der Ausgaberoutine 
und der Centronicsausgabe. Letztere beinhaltet dane- 
ben noch die Vertauschung der Geräte- und Sekun- 
däradresse für die serielle Ausgabe, so daß Sie auf die- 
sen Block für diesen speziellen Fall nicht verzichten 
können. In Zeile 1710 wird durch ‘IS=818° die Lage 
der für die Einbindung der Druckerausgabe in die in- 
tegrierte Software des Plus4 verantwortlichen Routi- 
ne bestimmt. Keine Angst, wenn diese im Kassetten- 
puffer liegt und Sie mit Turbo-Plus die integrierte 
Software nützen wollen. Der Kassettenpuffer steht 
nach dem Aufruf der Software wieder zu Ihrer Ver- 
fügung. Etwas anderes dagegen bleibt zu beachten. 
Turbo-Plus benötigt in Verbindung mit der Plus4-Soft- 
ware einen Teil des Platzes, in der die Druckerroutine 
liegt. Erhöhen Sie daher in diesem Falle in Zeile 150 
die Anfangsadresse der Druckerroutine um ca. 60. Es 
könnte auch ein bißchen weniger genügen, aber auf 
das Byte genau haben wir dieses noch nicht ausgemes- 
sen. Die Auswahl in den Zeilen 200, 240 und 280 
dürfte wohl keiner weiteren Erläuterungen bedürfen. 
Die Zeilen 300 bis 370 sind für Centronics ohne Be- 
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lang. Erfolgt eine Abänderung der Geräteadresse, so 
ist auch die Angabe einer Sekundäradresse oder der 
Eintrag 255 erforderlich. Die Zeilen 390 bis 440 sind 
für den nicht völlig auszuschließenden Fall vorgese- 
hen, daß eine abweichende Version der Plus4-Soft- 
ware existieren könnte, die hier eine Änderung erfor- 
derlich macht. Das Kernstück der „Druckerausgabe“ 
bilden wieder zwei korrespondierende Tabellen. In 
den Zeilen 480 und 490 finden Sie die auszutauschen- 
den Codes. Für Script-Plus sind die bereits aus der 
Bildschirm- und Tastaturanpassung bekannten Codes 
hier einzusetzen, in den Zeilen 550 bis 651 die ent- 
sprechenden Sequenzen für einen IBM-Drucker. Eine 
genauere Erläuterung finden Sie im Anhang des 
Artikels.. 


ZUM PROGRAMMABLAUF 


Folgendes ereignet sich beim Start von “SCREEN/ 
KEYBOARD“. Der Rechner besorgt sich die Adresse 
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des neuen Zeichensatzes und überprüft, ob eine Ver- 
legung des Basic-Endes stattfinden soll. Ist dieses der 
Fall, so findet ein POKE in die Speicherstellen 55 und 
56 statt. Ein CLR besorgt den Rest. Die vordem ge- 


lesenen Werte werden erneut eingelesen und dann geht 


es an die Installierung der Zeichensatzverschiebung. 
Diese Routine kommt nun an die in der Zeile 125 an- 
gegebene Stelle, wird dementsprechend angepaßt und 
mit der Adresse des neuen Zeichensatzes versehen. 
Nach dem SYS-Aufruf erfolgt die Verschiebung und 
der Einbau der in den Zeilen 210 bis 285 definierten 
Zeichenmuster an die durch die Zeilen 190 bis 195 
festgelegten Stellen. Die zwei durch die Zeilen 315 
bis 320 und 350 bis 355 bestimmten Tabellen werden 
nun an den dafür vorgesehenen Platz gePOKEd und 
die Tastaturroutine überschreibt nun die nicht mehr 
benötigte Verschieberoutine des Zeichensatzes. Nach- 
dem sie an ihre Lage und an die der zwei Tastaturta- 
bellen angepaßt ist, kann die Umstellung des TED- 
Chips auf die neue Zeichensatzadresse und die Einbin- 
dung der Tastaturroutine in den Systeminterrupt er- 
folgen. 


PROGRAMMABLAUF „DRUCKERANPASSUNG” 


Nach dem Einlesen der Parameter bis einschließlich 
Zeile 440, beginnt die Kreierung der zwei Tabellen 
mit den zu tauschenden Codes und den dafür zu sen- 
denden Sequenzen. Wenn diese im Hauptspeicher 
stehen, folgt das POKEn der Druckerroutine und 
deren Anpassung an ihre Lage. Ob es eine Centronics- 
Routine braucht oder nicht, es wird nicht lange ge- 
fackelt und dieselbe ebenfalls dorthin, wo sie soll, ab- 
gelegt. Ist serielle Übertragung gefragt, so werden die 
entsprechenden Sprünge in die Druckerroutine einge- 
tragen. Unterbunden wird die Verknüpfung mit dem 
ASCII-Wandler, sollte Commodore-Code statt ASCI 
Trumpf sein. Nun kommt die Zeit, an die Verknüp- 
fung der Druckerroutine mit den Tabellen der auszu- 
tauschenden Codes zu denken. Was noch bleibt, ist 
die Einbindung der neuen Routinen in die Systemrou- 
tinen BSOUT, OPEN, CLOSE und CLRCH durch ei- 

e geeignete Umstellung der im Bereich $300 bis 
8330 (768 bis 816) angesiedelten Sprungvektoren. 
Wenn eventuell noch nötige Einbinderoutine für die 
Plus4-Software installiert ist, so ist das Werk endlich 
vollbracht. 


ZEICHENSATZKOMPRIMIERUNG 


Nachdem Ihr Zeichensatz installiert ist, und Sie des- 
sen Funktionieren überprüft haben, können Sie eine 
Programmkomprimierung vornehmen. Sie laden hier- 
zu das Programm “ZSKOMPRIMIERER“, das even- 
tuell noch an den verwendeten Zeichensatz anzupas- 
sen ist. In die Zeilen 115 bis 120 sind die ASCH-Wer- 
te der veränderten Bildschirmzeichen einzutragen, da- 
mit das Programm sich deren Daten zu besorgen ver- 
mag. Sollten Sie die Anfangsadressen einiger Maschi- 
nenroutinen verschoben haben, so können Sie dieses 
entsprechend in den Zeilen 135 bis 150 vermerken. 
Wenn einige der dort angegebenen Routinen in Ihrer 
Anpassung keine Verwendung finden, so steht es Ih- 
nen frei, eine weitere Verkürzung vorzunehmen. Nach 
der jeweiligen Anfangsadresse ist die Anzahl der zu 
übertragenden Bytes angegeben. Sie können sie auf 
eins herabsetzen, wenn die Routine nicht benötigt 


Lesen Sie bitte weiter auf Seite 30 
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Pr 1 — 
55 rem screen/keyboard=========016 <hp> 
68 rem (p}) commodore welt team <fh> 
65 rem ==============S222222=222=2= g0f> 
78 rem (c) by alfons mittelmeyer <bj> 
75 rem <cf> 
88 rem <cp> 
85 rem <dj> 
98 rem basic v3.5 <im> 
95 rem c16/116/plus4 <gl> 
188 rem ========================== cjd> 
185 rem zeichensatzanpassung <eh> 
119 rem ========================== cob> 
115 rem programmanfang <gf> 
128 rem (verschiebbar) <il> 
125 data 312:rem stack <1b> 
138 rem ------------------------ <hh> 
135 rem neue zeichensatzadresse <fk> 
148 rem 14=scriptplus <be> 
145 rem 6®=plus4-software <ac> 
150 data 14:rem 14kh=$3808 (14336) <aj> 
155 rem -------------------------- <oa> 
168 rem basicende verlegen <mf> 
165 rem j=ja n=nein <kp> 
178 data j:rem ja <jl> 
195 rem -------------------------- <be> 
188 rem ascii-werte der zeichen <nn> 
185 rem (mit -1 abschliessen) <me> 
198 data 176, 191,177,171,178,174 <fc> 
195 data 179,222,-1:rem scriptplus <ng> 
288 rem -------------------------- <bf> 
285 rem neue zeichenmuster <dh> 
218 data 880, 102,068,006 <ee> 
215 data 862,102,862,888:rem "ae" <pj> 
228 data 889, 102,068, 182 <ah> 
225 data 182, 102,068,808:rem "oe" <bg> 
238 data 888, 102,808, 1802 <ej> 
235 data 192,182,862,8088:rem "ue" <ic> 
248 data 088,869, 192,124 <oh> 
245 data 102,182,124,0896:rem "ss" <hl> 
258 data 1982,9024,068, 102 <jh> 
255 data 126,182, 182,088:rem "Ae" <fi> 
268 data 102,869, 182,182 <jk> 
265 data 182,102,860,88@:rem "De" <Ik> 
278 data 102,888, 192,192 <ai> 
275 data 182,102,060,0880:rem "Ue" <kh> 
288 data 880,000, 003,862 <je> 
285 data 116,054,054,008:rem [pi] <pg> 
290 rem =====================2===== chk> 
295 rem tastaturanpassung <ae> 
308 rem ==================22====== ckn> 
385 rem auszutauschende codes <kj> 
318 rem (mit -1 abschliessen) <gp> 
315 data 64,92,42,94,186, 169,192 <nj> 
320 data 164,168,223,219,255,-1 <bd> 
325 rem -------------------------- <ha> 
338 rem neue codes <jce> 
335 rem (anzahl muss auszu- <ik> 
348 rem tauschenden codes ent- <al> 


345 
358 
355 
368 
365 
378 
375 
388 
385 
398 
395 
488 
485 
418 
415 
428 
425 
438 
435 
448 
445 
458 
455 
468 
465 
478 
475 
488 
485 
498 
495 
508 
585 
518 
515 
528 
525 
538 
535 
548 
545 
558 
555 
568 
565 
578 
575 
588 
585 
598 
595 
688 
685 
618 
615 
628 
625 
638 


« 


SCREEN-KEYBOARD 


rem entsprechen) 


data 176,191,177,171,178,174 
data 179,64,92,42,94,222 


Tem ======2=2=S2S2=e=S 2222 =Sc2m2=20o020> 


rem basicende verlegen 
readpr 
reada:readb$:ifb$="n"then41 
poke389,a:x=a*4:poke55,8 
pokeS6,x:clr:a=peek( 389) 

rem 
rem zeichensatz verschieben 
restore:readpr 

x=a*4:restore 428 

data 168,8,162,8,189,8,288 
data 157,0,48,232,288,247 
data 238,62,1,238,65,1,136 
data 288,238, 96 
fori=prtopr+22:reada:pokei,a 
next:ax=pr+6:g0sub725 
pokepr+14,1b:pokepr+15,hb 
ax=pr+9:gosub725 
pokepr+17,1b:pokepr+18,hb 
pokepr+9,x:syspr:b=x*256 

rem 
rem zeichen aendern 
restore:reada$ 
reada$:reada$:x$="" 
reada:ifa=-1then588 
x$=x$+chr$( a) :g0t0498 
n=1en({x$) :forj=1ton 
scnelr:printmid$(x$,j,1)} 
a=peek( 3872) :ad=8*a+1824+b 
fori=8t07:reada 
pokead+ti,a:next:nextj 


Fein ee 


rem tastaturanpassung 
a=8:x$="" 
reada:ifa=-1then558 
x$=x$+tchr$(a) :goto54M 
n=1en(x$) :y$="":fori=1ton 
reada:y$=y$+chr$(a) :next 
restore565 

data 32,191,207,32,285,286 
data 165,251,72,169,@, 133 
data 251,8,88,32,17,219 
data 166,239,248,23,189,38 
data5, 162,18,221,111,1,248 
data 5,282,208,248,248,8 
data 189,121,1,166,239, 157 
data 38,5,169,251,45,18 
data 255, 141,18,255,76,84 
data 286, 128,169,56, 141,18 
data3,169,1,141,19,3,88,96 
fori=prtopr+68 
reada:pokei,a:next:c=pr+55 
ax=pr:gosub725 


<ah> 
<eg> 
<bb> 
<bn> 
<an> 
<ie> 
<ne> 
<pi> 
<ap> 
<pc> 
<ab> 
<fc> 
<gb> 
<bk> 
<ca> 
<ja> 
<bd> 
<me> 
<pj?> 
<lf> 
<ib> 
<fe> 
<am> 
<nn> 
<ki> 
<ia> 
<lb> 
<ih> 
<fa> 
<kf> 
<pp> 
<in> 
<kp> 
<of> 
<1ln> 
<ap> 
<do> 
<kf> 
<gd> 
<hk> 
<in> 
<ap> 
<pi> 
<pj? 
<ke> 
<le> 
<mk> 
<nl> 
<jp? 
<mk> 
<ig> 
<al> 
<hd> 
<db> 
<jo> 
<me> 
<mi> 
<ha> 


pokepr+58,1b:pokepr+63,hb 
rem 
rem zeichensatzinstallierung 
rem und einbindung der 

rem tastaturroutine 
ad=65299: sysc+1 
pokead,(peek(ad)and3)orx 
ax=c:gosub725:pokepr+28B,1b 
pokepr+29,hb:pokepr+26,n 
ax=c+n:gosub725:pokepr+38,1b 
pokepr+39,hb 
fori=1ton:a$=mid$( x$,i,1) 
pokec+ti,asc(a$) :next 
fori=1ton:a$=mid$( y$,i,1) 
pokec+tnti,asc(a$) :next 
goto745 

rem 
rem berechnung von 1b und hb 
hb=int( ax/256) :1b=ax-256*hb 
return 

rem 


rem ende 
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DRUCKER-ANPASSUNG -— 1 — 


iB rem druckeranpassung========616 <ih> 598 data 142,-1:rem "Ae" <np> 
2a rem (p) commodore-welt-team <ie> 688 data 153,-1:rem "De" <cm> 
3b: nem 3F37r=-5792n STINE? 618 data 154,-1:rem "Ue" <jl> 
40 rem (c) by alfons mittelmeyer <cg> 628 data 27,54,-1:rem [lowercase] <gp> 
2. rem Bu 638 data 156,-1:rem [pfund] <gk> 
rem 5 : 

78 rem basic v3.5 <nl> , Far nr RER EIN Bi 

r ata 27,54,13,1@8,-1:rem [cr] <jf> 
88 rem c16/116/plus4 <ki> 660 rem ===================2====== enj> 
98 rem <ed> 678 rem parameter einlesen <de> 
188 rem ========================== <jd> 688 readar:readcet <dk> 
118 rem druckeräanpassung <al> 698 fori=1toß8:readp$(i):next <db> 
128 rem ============ == 522 === ===== Con? 788 tb=ar+95:rem codetabelle <jd> 
138 rem programmadressen <ep> 718 rem -------------------------- <bf> 
148 rem (verschiebbar) <hf> 728 rem druckercodes einlesen <jk> 
158 data 163@:rem mc-ausgabe <ma> 730 readx:ad=tb:do until x=-1 <gc> 
168 data 1815:rem centronics <jj> 748 pokead,x:ad=ad+1:readx:loop <ne> 
170.2 een <ef> 758 rem -------------------------- <ch> 
188 rem schnittstelle <pg> 768 rem codesequenzen einlesen <fh> 
198 rem s=seriell c=centronics <ig> 778 n=ad-tb:zg=®:x=zg+tn+1:ad=ad-1 <dk> 
288 data c:rem centronics <c0> 788 fori=1Iton:y=x:zg=zg+1 <bn> 
212; rem men <da> 798 pokeadtzg,y <pf> 
228 rem codewahl <bg> 8n8 x=x+1:reada <ec> 
230 rem c=cbm asascii <mn?> 818 ifa<>-Ithenpokead+tx,a:goto8ß® <jd> 
240 data a:rem ascii <hi> 828 pokeadty,x-y-i:next <bk> 
es0 ven FF <jg> 830. rem -------- mn <kp> 
2608 rem betriebsart <jd> 848 rem mc-routine:druckerausgabe <ng> 
278 rem n=normal s=software plus4 <be> 858 fori=artoar+94:reada:pokei,a <fm> 
288 data n:rem normal <ol> 868 next <ea> 
298 rem ------- 72 <bn> 870 data 142,55,1,166, 153,224,3 <ib> 
388 rem ausgabegeraet <bj> 880 data 288,6,166, 173,224,116 <fp> 
318 data A:rem standard <ji> 899 data 249,6,174,55,1,76,75,236 <dp> 
320: Tem <kp> 988 data 32,122,6,174,55,1,96,162 <co> 
338 rem sekundaeräadresse <ij> 918 data 12,248,49,221,186,6,240,9 <oe> 
348 rem k =-keine aenderung <be> 928 data 282,208,248,32,168,6,76 <nc> 
358 rem 255=keine sekundaeradr. <dg> 930 data 247,3,189,189,6, 178,189 <jd> 
368 rem sonst gemaess eintrag <jl> 948 data 189,6,248,17,148,54,1,168 <np> 
378 data 255:rem keine sek.adresse <na> 959 data 232,189,189,6,32,137,6 <il> 
388 ren ee — <kn> 968 data 136,288,246,172,54,1,24 <ol> 
398 rem fuer evtl. existierende <eb> 978 data 96, 178,41,127,201,65,48 <1j> 
488 rem abweichende version der <oj> 988 data 12,2081,91,16,8,224,0,48 <in> 
438 rem plus4-software <jk> 998 data 5,73,32,288,1,138,96 <gi> 
420 data 3b5d:rem ciout <mj> 1888 ax=ar+28:gosub2178 <bm> 
438 data 3b38:rem listen <mm> 1818 pokear+22,1b:pokear+23,hb <kf> 
448 data 3b3f:rem second <ie> 1928 ax=ar+43:gosub2178 <nf> 
458 rem ----------- 72222 <ni> 1838 pokear+64,1b:pokear+65,hb <ni> 
460 rem zu tauschende codes <ee> 1848 ax=ar+74:gosub2178 <eb> 
478 rem (mit -1 abschliessen) <fb> 1858 pokear+41,1b:pokear+42,hb <bn> 
488 data 176,191,177,171,178,174 <be> INDBADEN ee <no?> 
498 data 179,17,92,222,13,-1 <ei> 1878 rem mc-routine:centronics <kj> 
SBB rem ------------- 2 <on> 1889 Fori=cttoct+54:reada:pokei,a <ij> 
51i@ rem dafuer zu uebertragende <ad> 1898 next <a0> 
528 rem codesequenzen <eh> 1180 data 141,16,253,169,8,141,2 <ec> 
538 rem (jede sequenz ist mit <db> 1118 data 253,169,8,141,2,253,169 <ib> 
548 rem -1 abzuschliessen) <ib> 11208 data 32,44,1,253,248,251,24 <oe> 
558 data 132,-1:rem "ae" <le> 11380 data 96,166, 174,224,4,288,8 <ap> 
560 data 148,-1:rem "oe" <pk> 1148 data 162,3,134,174,162,116 <ka> 
578 data 129,-1:rem "ue" <jm> 1158 data 134,173,32,83,239,162 <nk> 


588 data 225,-1:rem "ss" <n1> 1160 data 8,134,173,96,32,12,239 <1ld> 
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DRUCKER-ANPASSUNG 


1178 
1188 
1198 
1280 
1218 
1228 
1238 
1240 
1258 
1260 
1278 
1288 
1298 
1308 
1318 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 
1408 
1418 
1420 
1438 
1440 
1450 
1468 
1478 
1488 
1498 
1508 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1608 
1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1708 
1718 
1728 
1738 

1748 


data 248,246,32,93,238, 144 
data 241,96 

rem 
rem serielle uebertragung 
ifp$( 1)="c"then 1358 
pokear+9,248:pokear+1®, 18 
x$="ec4b" 

ifp$( 3) ="s"thenx$="ffa8" 
ax=dec[( x$) :gosub2178 
pokear+44,1b:pokear+45,hb 
x=val(p$(4)) 
pokear+6,x:pokect+29,x 
ifp$(5)="kK"then1378 
pokect+33, val(p$(5)) 

goto 1378 

rem 
rem centronics 
ax=ct:gosub2178 
pokear+44,1b:pokear+45,hb 
rem 
rem cbm-code 

if p$(2)="a"then143M 
pokear+48,?234:pokear+41,234 
pokear+42,234 

rem 
rem tabellenzeiger 
ax=ar+t94:gosub2178 
pokear+33,1b:pokear+34,hb 
pokear+t29,n:3x=ax+n:gosub217® 
pokear+47,1b:pokear+48B,hb 
pokear+51,1b:pokear+52,hb 
pokear+61,1b:pokear+62,hb 

rem 
rem sprungvektoren 

ifp$( 1) <>"c"then1548 
ax=ct:gosub2178 
pokear+44,1b:pokear+45,hb 
ifp$( 3) ="s"then1788 
ax=ar:gosub2178 
poke884,1b:poke885,hb 
ifp$[ 4) <>"4"then 1688 
ifp$[5)<>"k"then1688 
ifp$( 1)<>"c"thenend 
ax=ct+22:gosub2178 
poke792,1b:poke793,hb 
ifp$( 1)<>"c"thenend 
ax=ct+t44:gosub2178 
poke888,1b:poke8B1,hb 
ax=ct+49:gosub2178 
poke794,1b:poke795,hb 

end 


rem integrierte softwäre 
restore173® 
is=818:fori=istois+6® 
reada:pokei,a:next 

data 72,173,94,59,2801, 168,288 
data 47,173,95,59,281,255,288 


<hl> 
<jn> 
<am> 
<ad> 
<nf> 
<jp> 
<ee> 
<lb> 
<bb> 
<ai> 
<hce> 
<lh> 
<ff> 
<a0> 
<pb> 
<dh> 
<ik> 
<ke> 
<hp> 
<db> 
<aHa> 
<ja> 
<ci> 
<bf> 
<bg> 
<cm> 
<jl> 
<1In> 
<mh> 
<io> 
<jj? 
<dk> 
<kj> 
<gb> 
<nj? 
<jm> 
<ih> 
<ob> 
<cp> 
<en> 
<ka> 
<li> 
<mg> 
<ıım> 
<gl> 
<ic> 
<kp> 
<kf> 
<mf> 
<ed> 
<jj? 
<dg> 
<pg> 
<bg> 
<jb> 
<pd> 
<bg> 
<kl> 
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1758 
1768 
1778 
1788 
1798 
1888 
1818 
1828 
1838 
1848 
1858 
1868 
1878 
1888 
1898 
1988 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2888 
2818 
282% 
2038 
2048 
2858 
2868 
2878 
2088 
2898 
2198 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 


data 
data 
data 
data 
data 


49,169,0,141,94,59, 169,7 
141,95,59,169,247,141,57 
59,169,3,141,58,59, 169,6 
141,64,59,169,4,141,65 
59,169,75,141,36,3,169 
data 236, 141,37,3,104,76,75 
data 236 

ax=dec(p$[6)) +1:gosub2178 
pokeis+t2,1b:pokeis+3,hb 
pokeis+t18,1b:pokeis+t19,hb 
ax=3xX+1:gosub2178 
pokeis+t23,1b:pokeis+t24,hb 
ax=dec( p$L7))+1:gosub2174 
pokeis+28,1b:pokeis+29,hb 
ax=ax+t1:gosub2178 
pokeis+33,1b:pokeis+34,hb 
ax=dec( p$(8))+1:gosub2178 
pokeis+t38,1b:pokeis+39,hb 
ax=ax+t1:gosub2178 
pokeis+t43,1b:pokeis+t44,hb 
pokear+4, 174 

ax=ar:gosub2178 
pokeis+16,1b:pokeis+t21,hb 
ifp$[ 1)="s"then2838 
ax=ct+?8:gosub2178 
pokeis+t26,1b:pokeis+t31,hb 
pokeis+36,1b:pokeis+41,hb 
g0t02128 

restore2#68 
fori=ct+36toct+48B 
reada:pokei,a:next 

data 76, 177,255,201,255,288 
data 3,76,252,225,76, 147,255 
ax=ct+22:gosub2178 
pokeis+26,1b:pokeis+31,hb 
ax=ct+39:gosub2178 
pokeist+t36,1b:pokeis+t41,hb 
ax=is:gosub2178 
poke884,1b:poke885,hb 

end 
rem 
rem berechnung von hb und 1b 
hb=int( ax/256) :1b=ax-256*hb 
return 

rem ----- en-U-Bmm een 


ZSKOMPRIMIERUNG 


55 
68 


95 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
188 rem 


zskomprimierung=========616 
(p) commodore-welt-team 


(c) by alfons mittelmeyer 


basic v3.5 
c16/116/plus4 


ZEICHENSATZ-KOMPRIMIERUNG 


185 
118 
115 
128 
125 
138 
135 
a0 
145 
158 
155 
168 
165 
178 
175 
188 
185 
198 
195 
288 
285 
218 
215 
228 
225 
238 
235 
248 
245 
258 
255 
260 
265 
278 
275 
288 
285 
298 
295 
389 
3805 
318 
315 
328 
325 
338 
335 
348 
345 
358 
355 
368 
365 
378 
375 


388 
385 


398 


rem 
ax=a 
poke 
poke 
ax=a 
poke 
hb=i 
retu 
a2=d 
a2=a 
sz=1 


rem 
gosu 
poke 
gosu 
elr: 
rem 
rem 
b=(b 
read 
x$=x 
n=1e 
rem 
rem 
11=1 
la=a 
dz=1 
rem 
rem 


ascii-werte der zeichen 
{mit -1 abschliessen) 
176, 191,177,171,178,174 
179,222,-1:rem scriptplus 
programmadressen 

312,152 :rem tastatur 
:rem drucker 
centronics 
plus4-soft 


792,4,808,2,804,2 
65299,1,786,2:g0t0248 
subroutinen 
B:gosub2B5:pokesz,1b 
sz+t1,hb:ax=a1:gosub295 
sz+t2,1lb:pokesz+3,hb 
2:g0sub285:pokesz+t4,1b 
sz+5,hb:sz=sz+6:return 
nt( ax/256) :1b=ax-256*hb 
rn 
z-zw:gosub188:12=sz:sz=11 
1:31=dz:gosub188:11=sz 
2:dz=dztaß:return 
basicende 
b615:poke288, peek(55) 
289, peek(56) :ax=1li 
b285:pake55,1h:poke56,hb 
gosub615:b=peek( 65299) 
bildschirmcodes 
and251) #256:x$="" 
a:ifa=-1then285 
$+chr$( a) :goto295 

n{ x$) 

variablen 
i:af=li+(e1+n) #6+2 
f+78+bk :12=1la: zw=af-ba 
a+l e2+n) #6+2 


zeichenmuster 


sz=11:38=1:31=65343:gosub 188 
11=sz 
sz=12:28=2848:a1=b:a2=53248 
gosub 188 

fori=1ton:scnelr 


printmid$(x$,i,1) :a=peek( 3672) 


81=8*#a+1024+b:a=B 
gosub215:next 

rem 
rem routinen 
fori=1t09:readal:reada® 


gosub215:next 
rem 


rem basicende 


<bp> 
<pn> 


<mg> 


<ol> 
<kn> 
<ep> 
<ff> 
<al> 
<1lm> 
<me> 
<bb> 
<gn> 
<ig> 
<ef> 
<pg> 
<kb> 
<mo> 
<lo> 
<nc> 
<of> 
<mc> 
<dd> 
<mj> 
<ib> 
<pe> 
<bc> 
<lp> 
<ma> 
<gj? 
<ci> 
<ci> 
<ob> 
<em> 
<dm> 
<jk> 
<il> 
<dh> 
<bn> 
<fl> 
<op> 
<fd> 
<pb> 
<nl> 
<ek> 
<dn> 
<hp> 
<eg> 
<bo> 
<oe> 
zna?> 
<pe> 
<fl> 
<en> 
<con> 
<bj> 
<gi> 
<hh> 
<oo> 
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395 
488 
485 
418 
415 
428 
425 
438 
435 
448 
445 
458 
455 
468 
465 
478 
475 
488 
485 
498 
495 
598 
585 
518 
315 
528 
525 
xt 

538 
535 
548 
545 
558 
555 
568 
209 
565 


pokedz,peek({ 288) 


pokedz+1,peek( 289) :a8=2:41=55 


a2=dz-zw:gosub189:dz=dz+2 
pokesz,®:pokesz+1,8:sz=11 
ax=dz-zw:gosub?2@S:pokedz, 1b 
pokedz+t1,hb 
a8=2:31=45:a2=dz:dz=dz+2 
gosub 188 

rem 
rem programm verschieben 
aß=dz-af:al=ba:a2=af 
gosub 188 

rem 
rem neue listenadresse 
aß=1:a1=batbk+1:a2=dz 
ax=la-zw:gosub285:pokedz, 1b 
pokedz+t1,hb:gosub188 
a1=batbk+5:a2=dz+1:gosub1BA 
ax=60491:gosuh285:rem bsout 
pokedz+2,1b:pokedz+3,hb 
a8=2:a1=884:a2=dz+2 
gosub189:48=1:41=65342 
gosub1Bß:pokesz,d:pokesz+1,@ 
rem 
rem verschieberoutine 
restore558 


fori=aftola-1:reada:pokei,a:ne 


print"sys"aftbk"eingeben und" 


print"programm abspeichern" 


ax=l1:gosub285:pokeaf+bk+1,1b 


pokeaftbk+5,hb:end 

data 13,16,18,8,158,52,49,49 
data 49,58,128,9,0,8 

data 


data 


‚208 


578 
575 


‚208 


580 
166 
585 
145 
598 


data 
data 


data 
data 


data 


30,218 


595 


n,160 


688 


data 


data 


‚208 


685 
618 
615 
628 
625 


data 
rem 
11=8968:e1=16:e2=11:ba=4897 
bk=14:return 

rem 


248,104, 168,24, 144,189 


169,0,133,208, 169,48, 133, 
120, 160,0,177,208, 133,218 


7,200,177,208,208,3,88,96 
200,162,1,177,208, 149,210 


232,224,6,208,246, 152,72, 


211,240,16,160,0,177,214, 


212,208,208,249,238,213,2 
202,208,242, 166,210, 248,1 


0,177,214,145,212,200,282 
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aou - kein 
Problem 


Fortsetzung von Seite 25 


wird. Bitte tragen Sie aber’keine Null ein, da die Null 
als Endmarkierung für die Datenübertragung fungiert. 
Nachdem das Komprimierprogramm mit RUN gestar- 
tet ist, überträgt es einige Daten in dafür vorgesehene 
Speicherplätze und trägt die Adressen weiterer Daten 
in zwei Listen ein. Nachdem die Verschieberoutine 
sich als Maschinenroutine im Rechner befindet, star- 
ten Sie diese bitte mit dem auf dem Bildschirm ange- 
zeigten SYS-Aufruf. Die Maschinenroutine arbeitet 
nun eine Liste von Adressen durch und besorgt sich 
die gewünschten Daten. Im Anschluß darauf kopiert 
sie sich selbst an den Basic-Anfang und stellt einen 
Zeiger auf die zweite Liste um, die für das Zurück- 
schreiben der Daten verantwortlich ist. Da die Kopie 
über einen Basic-Programmkopf verfügt und eine ent- 
sprechende Einstellung des Variablenanfanges vorge- 
nommen wurde, können Sie das erzeugte Programm 
nun wie ein normales Basic-Programm speichern, la- 
den und starten. Nachdem Sie das Programm gespei- 
chert haben, sollten Sie sich von dessen Funktionie- 
ren überzeugen, indem Sie für einige Sekunden den 
Rechner laden und starten. Sie werden sich wundern, 
wie schnell nun der Zeichensatz installiert ist. 


Zeichensatzanpassungen: 
INTEGRIERTE SOFTWARE DES PLUS4 


Im Programmteil SCREEN-KEYBOARD sind folgen- 
de Zeilen abzuändern: 

150 data 60 

190 data 251,252,253,254,219,220 

195 data 221 332, —1 

350 data 251,252,253,254,219,220 

355 data 221 ‚64 ‚92 ‚94 ‚222 

Es ist vielleicht empfehlenswert, den Klammeraffen 
durch das Paragraphenzeichen zu ersetzen, indem in 
Zeile 195 nach der 222 noch der Wert 64 eingescho- 
ben, das uns entsprechende Zeichenmuster in die 
Zeile 286 eingetragen wird. Das Zeichenmuster wurde 
im vorangegangenen Artikel bereits angegeben. 


PLUS4-SOFTWARE MIT COMMODORE-DRUCKER 


Wer einen Commodore-Drucker mit deutschem Zei- 
chensatz sein eigen nennt, kann auf das Programm 
DRUCKER-ANPASSUNG verzichten. Wenn er aber 
dabei nicht das englische Pfund-Zeichen verlieren will, 
so empfiehlt es sich, in Zeile 195 noch die Zahl 237 
unterzubringen und das Zeichenmuster in der bereits 
schon beim Klammeraffen angesprochenen Weise ein- 
zutragen. 


PLUS4-SOFTWARE MIT DRUCKERANPASSUNG 


Wer eine Druckeranpassung vornimmt, braucht sich 
in SCREEN-KEYBOARD um das Pfund-Zeichen 
nicht zu kümmern. 

Notwendig ist hier die Abänderung der Zeilen: 


480 data 187,188,189,190,219,220 
490 data 221,17,92 22-1 


VERSCHIEDENE DRUCKERANPASSUNGEN 


Ob Script-Plus oder integrierte Software, wir müssen 
die Code-Sequenz angeben, die unser Drucker benö- 
tigt, wenn er ein bestimmtes Zeichen darstellen soll. 


COMMODORE-DRUCKER MIT 
DEUTSCHEN ZEICHEN 


Die Codes sind uns bereits bekannt. Wir ändern im 
Programm DRUCKER-ANPASSUNG folgende Zeilen: 


550 data 187,—1 610 data 221,—1 
560 data 188,—1 620 data 17,—1 
570 data 189,—-1 630 data 237,—1 
580 data 190,—1 640 data 222,—1 
590 data 219,—1 650 data 13,—1 
600 data 220,—1 


IBM-DRUCKER 


Die entsprechenden DATA stehen bereits im Pro- 
gramm. Wir wollen kurz unsere Anpassung erläutern. 
In Zeile 620 haben wir den ASCII-Code 17 unter- 
drückt, da, anstatt wie der Commodore-Drucker auf 
Kleinbuchstaben zu schalten, der IBM-Drucker in 
irgendeinen Grafik-Modus schalten und abstürzen 
würde. Wir haben statt dessen die 17 durch die Se- 
quenz ESC 6 ersetzt, womit der internationale Zei- 
chensatz eingeschaltet wird. 

Script-Plus, das im Commodore-Modus am Anfang 
jeder Zeile mit Code 17 in den Kleinschreibmodus um- 
schalten will, aktiviert dadurch die internationalen 
Sonderzeichen, unter denen sich auch unsere deut- 
schen Umlaute befinden. Damit wir auch bei Benut- 
zung anderer Software nicht unbedingt ESC 6 oder 
den ASCII-Code 17 senden müssen, haben wir in Zei- 
le 650 den Return-Code ebenfalls mit der Zeichen- 
satzumschaltung versehen. Spätestens in der zweiten 
Ausgabezeile ist der deutsche Zeichensatz aktiv. 
Vollzieht der Drucker nicht bereits automatisch beim 
Carriage-Return auch einen Zeilenvorschub, so sorgt 
der ASCII-Code 10 in Zeile 650 dafür. 


EPSON-DRUCKER 


Der Epson-Drucker besitzt verschiedene nationale 
Zeichensätze, zwischen denen wir nach Belieben mit 
unseren Code- Sequenzen hin und herschalten können. 
Hier die Epson-Anpassung: 


550 data 123,—1 610 data 93,—1 

560 data 124,—] 620 data 27,82,2,—1 

570 data 125,—1 630 data 27,82,3,35,27, 
580 data 126,—1 2] 

590 data 91,—1 640 data 227,—1 

600 data 92,—1 650 data 27,82,2,13,10,—1 


Die Umschaltung des nationalen Zeichensatzes er- 
folgt mit der Code-Sequenz 27,82. Ein weiteres Zei- 
chen wählt den entsprechenden Zeichensatz: 


27,82,0 = amerikanischer Zeichensatz 
27,82,2 = deutscher Zeichensatz 
27,82,3 = englischer Zeichensatz. 


Wollen wir vom Drucker nicht plötzlich ein Paragra- 
phenzeichen statt dem Klammeraffen vorgesetzt be- 
kommen, so ist in Zeile 490 nach der 13 noch die 
Zahl 64 einzufügen und in Zeile 651 die Code-Se- 
quenz: 


651 data 17,82,0,64,27,82,2,—1 
30 
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Leider mißfällt uns, daß der Epson-Drucker kein ‚m‘ 

in seinem Zeichensatz besitzt. Wir kamen noch nicht 

dazu, ein solches durch Drucker-Programmierung 

oder Einzelnadelansteuerung zu realisieren, und lie- 

ßen verschämt den IBM-Code in Zeile 640 einfach 

nn werden dieses aber zu gegebener Zeit nach- 
olen. 


DRUCKER OHNE DEUTSCHEN ZEICHENSATZ 


Zeichensatz ab. Dies zu beheben, bereitet unserer 
DRUCKER-ANPASSUNG aber keine allzu großen 
Schwierigkeiten. Für Commodore-Drucker, ausge- 
nommen die Farbdruckern MCS 801 ‚ verwenden wir 
folgende Codes: 


550 data 8,2,1 
560 data 8,2,1 

128,12 
570 data 8 


580 data 8 


‚133,208,132,208,133,184, 
197.128, 196,128,197,184, 

b lop. HIESS, 
5.130.129,136,193.1 50, 
8,132,162,132,168,145, 
'128,196,128,196,128,197, 
2 ,192,128,192,128,193, 


w 


un 
\o 
oO 
en 
{6} 
u 
Pe} 
) x 
NN DON MN 0 


5 
1S, 
„12 
a 
„13 
‚15,— 
‚16 
5,— 
A 
BSR 


159) 
DD 
;»$ 
er 
DL 


oo 
pt 
DL 
a a ee 


fr 
oo 
00 
[597 


640 data 83.1 
188,128,1 
650 data 13,— 


DEUTSCHE ZEICHEN MIT DEM MCS-801 


NE 232,128,.132.128,193, 


Leider unterscheiden sich sowohl der Betrieb dieses 
Druckers im Grafikmodus als auch das Aussehen der 
Zeichen sich von anderen Commodore-Druckern. Die 
Zeichen haben eine 8*8-Matrix. Im Handbuch ist das 
Zeichenmuster gut ablesbar. Was fehlt, sind deutsche 
Zeichen, die gut zu den dort sich befindenden pas- 
sen. Wir kamen noch nicht dazu, diese zu kreieren, 
werden dies aber noch nachtragen. Vorerst sagen wir 
Ihnen, wie Sie selbst eigene Zeichen entwerfen kön- 
nen. Mit der Code- -Sequenz 27,75 schalten wir in den 
Grafikmodus. Nun hat die Anzahl der zu druckenden 
Bitmuster zu folgen, und zwar in Form einer dreistel- 
ligen Dezimalzahl, bei der die einzelnen Ziffern als 
ASCII-Codes von 48 bis 57 darzustellen sind. Der An- 
fang der Sequenz lautet also 27, 75, 48, 48, 56. Dann 
kommen die acht Bitmuster. Damit der Rechner das 
Sequenzende erkennt, ist die Sequenz, wie gewohnt, 
mit —| abzuschließen. Nun zu den Bitmustern. Bei 
den Bildschirmzeichen unterteilten wir die Zeichen- 
matrix in acht Zeilen und stellten jede Zeile durch ei- 
ne Zahl von O bis 255 dar. Der Drucker braucht, da 
seine Nadeln untereinander angebracht sind, eine Un- 
terteilung der Matrix in acht Spalten. Für jede Spalte 
ist dann das Bitmuster zu berechnen. Dies geschieht 
nach folgendem System: Jedes Bit, das gesetzt wird, 
hat, je nach der Stelle, an welcher es steht, einen ge- 
wissen Wert. Von oben nach unten gelten die Werte: 
1,2,4, 8,16, 32, 64, 128. Befindet sich ein Punkt in 
der oberen Reihe der Zeichenmatrix, so zählt er also 
1, befindet er sich in der unteren, so sind es 128. 

Die so von oben nach unten berechneten Werte der 


Billigen Matrix-Druckern geht leider oft ein deutscher 


Spalten, von links beginnend, durch Komma getrennt, 
sind die gesuchten Werte der an den Drucker zu sen- 
denden Bitmuster. Wenn alles klappt, sehen wir die 
deutschen Zeichen dann auf dem Papier und sollten 
nicht vergessen, der COMMODORE-WELT-Redaktion 
die berechneten Werte mitzuteilen und auch eine 
Druckprobe, damit der beste Entwurf an die anderen 
MCS-801-Eigner weitergegeben werden kann, nach 
dem Motto, geteilte Arbeit ist halbe Arbeit. 


DIN-TASTATUR AM PLUS4 


Mancher unserer Leser mag bedauern, daß unser An- 
passungsvorschlag leider nicht der DIN-Norm ent- 
spricht und für schreibmaschinengewohnte Tipper sich 
so nicht besonders eignet. Herr Burr fand nicht nur 
unser Zeichensatzprogramm fantastisch, sondern 
auch, daß damit der Verwirklichung einer DIN-Tasta- 
tur auf dem Plus4 nichts mehr im Wege steht. 

Durch folgende Änderungen in SCREEN-KEYBOARD 
erhalten Sie eine DIN-Tastatur am Plus4: 


315 data 59,58,64,43,93,91,186,92 
320 data 169,166,90,218,89,217,164,—1 


Script-Plus: 

350 data 176,191,177,171,178,174,179 

355 data 58,59,43,89,217, 90,218,64 
Plus4-Software: 

350 data 251,252,253,254,219,220,221 

355 data 58,59,43,89,217,90,218,64 

Die veränderten Zeichen finden Sie dann auf folgen- 
den Tasten: 


Zeichen Taste 
ä 
[6) : 
ü @ 
ß + 
Ä ] 
i \ 
U <Shi er @ 
; <Shift> L 
+ <Cbm> + 
y z 
Y Z 
Z y 
Z Y 


<Paragraph> <Cbm> @ 
Vielleicht verpassen Sie dem C16 auch eine DIN-Tasta- 
tur. Wir sind schon gespannt. A.M.D 
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PROGRAMMIERSPRACHEN ZUR AUSWAHL 


SPRACHEN- 
GEWIRR 


Der vielschichtige, schnell wachsende Markt 
der Programmiersprachen und ihrer Dialekte ist un- 
überschaubar geworden. Unsere Serie erläutert 
die Hauptunterschiede. 


Das komplexe Thema der 
Programmiersprachen von 
Ada bis V.I.P. ist nicht 
nur für den Profi-Program- 
mierer interessant, son- 
dern auch für die Einstei- 
ger geeignet, die sich ei- 
nen Überblick der baby- 
lonischen Sprachverwir- 
rung beschaffen wollen. 
Wir werden dieses Thema 
in mehreren Teilen aufbe- 
reiten. 

Es gibt zur Zeit weltweit 
mehr als 160 höhere Pro- 
grammiersprachen. Nur 
etwa 15 Prozent unter- 
scheiden sich erheblich 
voneinander. 

Von einigen existieren 
mehrere Versionen, soge- 
nannte Dialekte. Hinzu 
kommen Besonderheiten 
der verschiedenen Com- 
puteranlagen und deren 
Compiler, auf denen mit 
den höheren Programmier- 
sprachen gearbeitet wird.. 
Dies fördert die Entwick- 
lung weiterer Dialekte. 
Addiert man alle Variatio- 
nen und Dialekte, dürfte 
die Anzahl der bekannt 
gewordenen Programmier- 
sprachen zwischen 2000 
und 2500 liegen. 

Ein weiterer Faktor, der 
die Übersichtlichkeit auf 
diesem Markt einschränkt, 
ist die Weiterentwicklung 
der Sprachen. Dies bringt 
neben Vorteilen sicherlich 
auch Probleme mit sich: 
Bestehende Programme 
müssen teilweise umgestellt 
werden. 

Hier soll nur auf die 
Hauptunterschiede der ver- 
schiedenen Sprachen ein- 
gegangen werden. Verbes- 
serungen in den einzelnen 
Weiterentwicklungen und 
Dialekten ändern den Cha- 
rakter der betreffenden 
Sprache nicht und den 
Anwendungsbereich nur 
unwesentlich. Nur dort, 
wo eine Sprache ihr Er- 


scheinungsbild grundle- 
gend geändert hat, wird 
im Text darauf einge- 
gangen 

Die gebräuchlichsten Pro- 
grammiersprachen werden 
etwas ausführlicher behan- 
delt. Bei den einzelnen Be- 
schreibungen werden Pro- 
bleme angesprochen, die 
auch für andere Sprachen 
gelten. So greift die Be- 
sprechung über zu anderen 
Sprachen und allgemeinen 
Problemen und zeichnet 
Besonderheiten aus den 
Anwendungsgebieten auf. 
Zu einigen Programmier- 
sprachen werden Beispie- 
le gegeben; je nach Beson- 
derheit und Bedeutung 
der Sprache ausführlicher 
dokumentiert. Sie sollen 
nur dazu dienen, einen 
optischen Eindruck zu 
vermitteln. 


WICHTIGE ENTSCHEI- 
DUNGSHILFE 


Strukturierung und Modu- 
larität einer Sprache las- 
sen sich so schon auf den 
ersten Blick erkennen. 
Auch verdeutlicht das 
Beispiel die Lesbarkeit ei- 
ner Programmiersprache 
oder des Programms; der 
Charakter einer Sprache 
ist zu erkennen. 

Die künstliche Intelligenz 
und Expertensysteme wer- 
den erläutert sowie Be- 
griffe aus der Welt der Pro- 
grammiersprachen. Der 
Leser erhält einen Ein- 
druck, wie vielschichtig 
Programmiersprachen sein 
können. Vielleicht kann 
daraufhin eine Kauf- oder 
Lern-Entscheidung einfa- 
cher gestaltet werden. Zu- 
mindest wird der Leser 
sich ein eigenes Urteil bil- 
den können, wenn die ei- 
ne oder andere Program- 
miersprache angepriesen 
oder verurteilt wird. In 
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den meisten Fällen wer- 
den hier nur Vor- und 
Nachteile einer Program- 
miersprache genannt und 
das vorrangige Einsatzge- 


biet. Es gibt keine ‚‚schlech- 


ten‘ Programmierspra- 
chen, sie müssen immer in 
ihrem Umfeld betrachtet 
werden, und sei es nur das 
zeitliche. Auf veraltete 
Sprachen wird gesondert 
hingewiesen. 

Die vorliegende Auswahl 
von Programmiersprachen 
ist nicht vollständig. Sie 
kann dies zu keinem Zeit- 
punkt sein, da in immer 
kürzeren Abständen neue 
Dialekte und ‚‚Verbesse- 
rungen“ auf den Markt ge- 
worfen werden. Es erschien 
auch nicht sinnvoll, hier 
nur auf genormte Sprachen 


Sprach-Dialekt ausführ- 
lich besprochen werden, 
daher sind sie zum Teil 
nur der Übersicht wegen 
namentlich aufgelistet 
oder wegen ihrer Sonder- 
stellung kurz angespro- 
chen. 

Auch sprachliche Program- 
miermethoden sind in die- 
se Liste aufgenommen. 
Die Grenze zwischen Me- 
thode und Sprache ist oft 
fließend. Daher erscheint 
manchmal der Begriff 
Programmiersystem an- 
stelle der Programmier- 
sprache. Dies sollte nicht 
verwirren, denn auch ei- 
ne Programmiersprache 
ist immer in einem Sy- 
stem zu sehen, und sei es 
nur der spracheigene 


Compiler oder Interpreter. 


Moderne Computersysteme verlangen moderne 


Programmiersprachen 


einzugehen, da sie zum 
einen rar sind, zum ande- 
ren keinen Überblick 

über die momentane 
Marktsituation geben kön- 
nen, denn Normierungen 
sind langwierige Unterfan- 
gen. 

Andererseits kann unmög- 
lich jeder firmeneigene 


1. Ada 

Ada ist wie HOL (siehe 
dort) eine Systemimple- 
mentierungssprache, die 
in den USA vom US-Ver- 
teidigungsministerium für 
den militärischen Einsatz 
entwickelt wurde. Seit 
dem 1. Januar 1985 ist 
Ada für alle US-Waffen- 
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systeme obligatorische 
Programmiersprache und 


löste damit etwa 800 (acht- 


hundert!) Programmier- 
sprachen aus diesem An- 
wendungsbereich ab. Da 
Ada aus dem militärischen 
Bereich kommt, hatte sie 
ursprünglich einen Deck- 
namen: green. 

Ende der 70er Jahre hat- 
te das DoD (US Departe- 
ment of Defense) die Ent- 
wicklung einer Program- 
miersprache ausgeschrie- 
ben. Es wurden insgesamt 
17 Vorschläge eingereicht, 
von denen vier in die enge- 
re Wahl gezogen wurden. 
Diesen ordnete man 
Tarnnamen zu: 

green -— Honeywell Bull 
red — Intermetrics 
blue — Softech 


yellow —-SRI International. 


Das DoD entschied sich 
für „green“ und so bekam 
Honeywell Bull den Zu- 
schlag. 

Ada ist eine Real-Time- 
Sprache (= Echtzeitspra- 
che) ähnlich Pearl, jedoch 
unterscheiden sich beide 
unter anderem in dem auf- 
zubringenden Program- 
mieraufwand stark. 

Ada wurde ursprünglich 


DD m 


=-ODO SAN PRWD- OO SAN BR WD- 


Programmiersprachen 


Assembler 
ATLAS 
Autocode 
Autopit 
Autopol 
Autoproc 
Autopromt 
Autospot 
BASIC 


Q 
"Query Language(QL) 
PRG 


RPNL 
SIMULA 


SL3 
Smalltalk 
SQL 


entwickelt für den Einsatz 
in embedded systems, das 
sind integrierte Computer- 
systeme, die innerhalb 
größerer Systeme ‚‚einge- 
bettet‘“ sind und dort be- 
stimmte Aufgaben über- 
nehmen. 

Beispiele für embedded 
systems sind unter ande- 
rem: Flugüberwachungs- 
systeme, Feuerleitsysteme 
usw., aber auch mikropro- 
zessorgesteuerte Waschma- 
schinen. Die Entwicklung 
von Programmen für sol- 
che Systeme ist in der Re- 
gel wesentlich kosteninten- 
siver als technisch-wissen- 
schaftliche oder kommer- 
zielle Programme, da die 
letztgenannten Bereiche 
mit standardisierten Spra- 
chen abgedeckt sind 
(Fortran, Cobol....). 

Ada hat sich zwischenzeit- 
lich auch auf dem nicht- 
militärischen Bereich 
etabliert. 


ADA: WECHSEL 
INS ZIVILLEBEN 


Obwohl Ada eine höhere 
Programmiersprache, also 
maschinenunabhängig ist, 
enthält ihr Sprachumfang 
maschinennahe Elemente, 
um dem Benutzer die Mög- 
lichkeit zu geben, für die 
— im militärischen Bereich 
besonders aufwendigen — 
Spezialanwendungen Ein- 
und Ausgabefunktionen 
anwendungsspezifisch zu 
erstellen. 

Ada gibt es seit 1981 und 
hat in außermilitärischen 
Anwendungsgebieten Fuß 
gefaßt; sowohl im tech- 
nisch-wissenschaftlichen 
Bereich, als auch in der 
kommerziell-administrati- 
ven Datenverarbeitung. 
Ada ist inzwischen eine 
leistungsfähige, universelle 
Programmiersprache mit 
integrierten Sprachein- 
richtungen, die eine Viel- 
zahl von modernen Pro- 
grammiertechniken unter- 
stützt. Ada wurde unter 
dem Aspekt der Wartungs- 
freundlichkeit sowie der 
gesteigerten Zuverlässig- 
keit und Übertragbarkeit 
entwickelt. Die Vorteile 
kommen besonders zur 
Geltung bei recheninten- 
siven Programmen in 
Echtzeitumgebung. 


Ada — vorwiegend auf 
größeren Rechenanlagen 
einsetzbar — verlangt eine 
strenge Zuweisung von 
Datentypen in der ersten 
Phase der Programment- 
wicklung. Da die Überprü- 
fung der Datentypenzu- 
weisungen schon während 
der Compilierung stattfin- 
det, können folgenschwe- 
re Fehler vermieden wer- 
den. ’ 
Die Datenabstraktion er- 
möglicht es dem Benutzer, 
sich auf die wesentlichen 
Punkte seines Program- 
mes zu konzentrieren, oh- 
ne sich um die darunterlie- 
genden Einzelheiten küm- 
mern zu müssen. Die De- 
tails der Implementierung 
bleiben für ihn verborgen, 
während ihm gleichzeitig 
alle Mechanismen für ihre 
Verwendung zur Verfü- 
gung stehen. 
Auffallend ist hier die Viel- 
zahl der zur Verfügung 
stehenden Datentypen im 
Gegensatz zu anderen Pro- 
grammiersprachen. 
Die Datentypen gliedern 
sich in Ada wie folgt auf: 
; Ada Datentypen 
u Verweistypen 
2; strukturierte 
Datentypen 
® Ableitungstypen 
® Unterbereichs- 
typen 
® abstrakte 
Typen 
Felder (Strings) 
. Verbunde 
.l. mit Varianten 
2. ohne Varianten 
skalare Daten- 
typen 
® Ableitungs- 
typen 
® Unterbereichs- 
typen 
® abstrakte 


voen 
diskrete Datenty- 
pen (indiex-/ 
iterationsfähig) 


1 
1 
1 


1.341: 


-1.3.1.1.ganzzahlige Daten- 


typen 
1.3.1.2.Aufzählungstypen 
(z.B. Boolean, 
Character) 
1.3.2. reelle Datentypen 


1.3.2.1. Festpunkttypen 
(mit absoluter 
Genauigkeit) 

1.3.2.2. Gleitpunkttypen 
(mit relativer 
Genauigkeit). 
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Ada bietet hervorragende 
Sprachelemente zur Steue- 
rung paralleler Programm- 
abläufe, ohne daß auf die 
Systemdienste des Be- 
triebssystems zurückgegrif- 
fen werden muß. Der Pro- 
grammierer hat die Mög- 
lichkeit, große Program- 
me zu unterteilen und ge- 
trennt zu compilieren. 
Dabei liefert die Biblio- 
theksverwaltung Informa- 
tionen zu den übrigen 
Compiler-Einheiten. An- 
dere Programmiersprachen 
stellen nur wenig Infor- 
mation bei getrennt com- 
pilierten, aber voneinander 
abhängigen Programm- 
Modulen bereit. 

Eine besondere Stärke 
von Ada sind die generi- 
schen Definitionen, spe- 
zielle Formen von Pro- 
grammeinheiten, die Algo- 
rithmen definieren, ana- 
log zur Definition von Un- 
terprogrammen, wobei die 
Datentypen variabel blei- 
ben und erst bei der Com- 
pilierung festgelegt wer- 
den. 


EINFACHE 
FEHLERBEHANDLUNG 


Die Fehlerbehandlung bei 
Ada ist vorbildlich und 
trägt entscheidend zur 
Wartungsfreundlichkeit 
bei. 

Die Namensgebung von 
Ada hat nichts mit einer 
Abkürzung zu tun, wie 
dies bei vielen anderen 
Programmiersprachen der 
Fall ist, sondern hat fol- 
genden Ursprung: Der bri- 
tische Mathematiker 
Charles Babbage (1792 
bis 1871) entwickelte ein 
Gedankenmodell einer 
Analytical Engine, eines 
Computers. Dieses Mo- 
dell verfügte über eine 
heute noch aktuelle Ar- 
chitektur: Eingabe, Aus- 
gabe, Verarbeitung, Spei- 
cher. Seine Maschine 
konnte niemals gebaut 
werden, hätte doch alles 
mechanisch bewerkstel- 
ligt werden müssen, mit 
unendlich vielen Zahn- 
rädern und ähnlichem. 
Babbage wurde nicht für 
ernst genommen. Mora- 
lisch und finanziell wur- 
de er unterstützt von ei- 


ner Edeldame namens 
Ada Augusta Countess 
of Lovelace. Ihr wurde 
diese Programmierspra- 
che gewidmet. 

Ada unterstützt sowohl 
die Top-Down- als auch 
die Bottom-Up-Entwick- 
lung; beide Methoden 


" sind gleichermaßen ge- 


bräuchlich, wenn sie 

auch mit sehr unterschied- 
lichen Vor- und Nachtei- 
len behaftet sind. 

Beide Verfahren beschrei- 
ben die Vorgehensweise 
bei der Programmerstel- 
lung im allgemeinen — 
also nicht nur bei Ada, 
sondern bei Programmier- 
sprachen überhaupt. 


1. Top-Down-Methode 
Das zu erstellende Pro- 
gramm wird durch schritt- 
weise Verfeinerung ent- 
wickelt. In der Praxis 
sieht das so aus, daß die 
Problemlösung — der 

Weg — grob vorgezeichnet 
wird, so daß ein Pro- 
grammgerüst entsteht. Ver- 
schiedene diffizile und oft 
benötigte Randprobleme, 
wie Datei-Ein- und -Aus- 
gabe, werden dann in 
Form von Unterprogram- 
men realisiert. Ada unter- 
stützt die Top-Down-Me- 
thode unter anderem 
durch die Möglichkeit der 
Einflechtung von body 
stubs anstelle der Unter- 
programme. Body stubs 
sind Platzhalter für den 
Korpus (Rumpf) eines 
Unterprogrammes. Die 
eigentlichen Unterpro- 
gramme können später er- 
stellt und sogar separat 
compiliert werden. 


2. Bottom-Up-Methode 
Diese Vorgehensweise 
bei.der Programmierung 
steht in krassem Gegen- 
satz zur Top-Down- 
Entwicklung. Hier wird 
das Problem zunächst un- 
tergliedert, und Einzellö- 
sungen in Form von Un- 
terprogrammen werden 
ausgearbeitet. Darauf- 
hin kann der Rumpf des 
Programms mit den ent- 
sprechenden Unterpro- 
grammaufrufen erstellt 
werden. 


Der große Vorteil von 


Tabelle 1: 


Suche B 


Lese Inhalt von B 
h 4 
Transportiere Inhalt 


v 


Lese Inhalt von C 


h 4 


Transportiere Inhalt 

V 

v 

Addition der Werte 
v 


Ergebnis 
Vv 
Such 
4 
Transportiere das Ergebnis 


A 


m 


Abspeicherung in A 


Ada ist die strenge Stan- 
dardisierung. Darüber 
wacht das Ada Joint Pro- 
gramm Office, dem sogar 
Lehrbücher über Ada 
vorgelegt werden müssen. 
Ada ist als Universalspra- 
che zu bezeichnen, die 
dem professionellen Soft- 
wareentwickler eine um- 
fassende Sprachunterstüt- 
"zung bietet. 

Der Programmieranfänger 
wird sich mit Ada jedoch 
nicht leicht tun, das ist 
eben der Preis der Kom- 
plexität einer höheren 
Programmiersprache. 
Ada-Experten gehen so- 
gar so weit, zu behaupten, 
daß man Fähigkeiten die- 
ser mächtigen Sprache 
nur mit einem abgeschlos- 
senen Informatikstudium 
ausnutzen könne. Mit an- 
deren Worten: Ada ist 
nicht geeignet für Anfänger. 


2. ADAPT 

NC(Numerical Controlled)- 
Steuersprache (siehe APT, 
EXAPT). 


3. ADF 

Dedizierte Abfrage-Spra- 
che im Bereich informati- 
ver Systeme (Datenban- 
ken etc.), siehe hierzu 
auch Query Language oder 
SQL. 


4. Algol 

Algorithmic Language. 
Algorithmische Sprache. 
Eine mathematisch-wis- 
senschaftlich orientierte 
Sprache, die in der Haupt- 
sache an Hochschulen an- 
gewendet wird. 

Algol ist seit 1959 auf 
dem Markt und hat star- 
ke Ähnlichkeiten mit 
Fortran, ist jedoch syste- 
matischer in ihrem Auf- 
bau des Sprachschatzes 
und umfangreicher. Die 
Ausgabe von 1959 wurde 
bereits 1960 revidiert 
(Algol 60). 1968 er- 
schien dann Algol 68, in 
ihrem Wortschatz wesent- 
lich umfassender und aus- 
gereifter. Wie bei vielen 
anderen Programmierspra- 
chen sind auch hier die 
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Tabelle 2: 


Programabeispiel in Assenbler für CPU 6582 von MOS-Technolagy, 


zu finden ia VC2B/C64/Apple etc. 
Source-Listing Ausschnitt zu Asseabler 


1A24 9126 STAIZ TENPL 
1A26 GBENADR 28 BD 19 USR NATADR 
1429 Fa D8 BEQ ABAIN 
1A2B 20 Ab 19 USR RSTORE 
1AZE 69 RTS 

1A2F NBRS 98 TYA 

1438 48 PHA 

1A31 8A TAA 

1432 48 PHA 

1A33 AB 08 LDYIK $8B 
1435 84 32 sTYz 

1437 A2 08 LDYIN $88 
1A39  OFFS B5 29 LDAZX OFFSET 
1A3B 18 15 BPL ADD 
1A3D 49 FF EORIN $FF 
1A3F 85 37 STAZ TMP 
1A4 38 SEC 

1n42 AS 39 LDAZ RCSH 
1A44 ES 37 SBCZ TNP 
1A46 85 22 STAZ CHL 
1A48 AS 3A LDAZ RCSH 
1A4A 85 23 STAZ CHH 
1A4C BB 11 BCS EXAM 
1A4E 66 23 DECZ CHH 
1A38 De 80 BNE EXAN 
1A52 ADD 18 ELC 

1A53 65 39 ADCZ RESL 
1A53 83 22 STAZ CHL 
1857 AS 3A LDAZ RCSH 
1459 85 23 STAZ CHH 
1A5B 98 82 BCC EXAN 
1A5D Eb 23 INCZ N 
1ASE EXAN Bi 22 LDAIY CHL 
1Abl 95 CHPIM DOT 
1A63 DB 82 BNE NEXT 
1A85 Eb 32 INCZ N 
1A67 NEXT CA DEX 

1A68 DB OF BNE OFFS 
1A6A 6B PLA 

1AsB AA TAX 

1AsC 6B PLA 

tA6D AB TAY 

1ABE 68 RTS 


verschiedenen Ausgaben 
kaum oder nur bedingt 
kompatibel. 

Diese Sprache weist star- 
ke Nachteile in der Ein- 
und Ausgabe von Daten 
auf. Ihre Vorteile liegen 
in der streng mathemati- 
schen Ausdrucksform. 
Algol ist für Deutschland 
in der DIN 66026 ‚‚Infor- 
mationsverarbeitung; 
Programmiersprache 
Algol“ festgelegt. 

Nach Algol 60 und Algol 
68 folgte noch ein Ver- 
such, diese „veraltete“ 
Programmiersprache zu 
retten: Algol W, aber oh- 
ne nennenswerten Erfolg. 
Pascal war der nächste 


Abspeichern und nächste 
Adresse holen, wenn B, 
dann nicht fertig, sonst 
Rücksprung zu RSTORE 


X und Y in Stack speichern 


Y und N gleich Null setzen 
Acht Nachbarn testen 


Springe nach ADD, wenn 

OFFSET positiv 

sonst Subtraktion vorbereiten, 
Carry-Bit setzen 


Subtrahieren, dasit die 
korrekte Adresse des 
Nachbarn entsteht, 

Sprung zur 
Untersuchungsroutine 
Page-Srenze überschreiten 
weiter zu EXAM 

Addieren vorbereiten, wenn 
OFFSET positiv, Ergebnis 
in CHL ablegen, 


Sprung zur EXAN-Routine 
Page-Grenze überschreiten 
Nachbardatenbyte holen 
und prüfen, ob besetzt 


Anzahl der Nachbarn 
erhöhen 

Sprung nach OFFS 

X und Y Werte aus Stack 
zurückholen 


Entwicklungsschritt und 
löste damit die Algol- 
Familie ab. 


5. APL 

A Programming Language. 
APL ist ähnlich wie 
BASIC eine problemorien- 
tierte Sprache. Sie ist 1960 
in den USA von dem Ma- 
thematiker K. Iverson ent- 
wickelt worden und wurde 
in erster Linie bei dem 
Time Sharing und bei 
größeren Rechenanlagen 
eingesetzt. 1962 wurde 
APL publiziert, aber erst 
1966 gab es die erste Im- 
plementation für das 
IBM-System /360. 
Mittlerweile gibt es auch 
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schon mehrere Interpreter 
für diverse Microcompu- 
ter. 

Time Sharing (Zeit-Auf- 
teilung) einer Rechenan- 
lage liegt dann vor, wenn 
mehrere Benutzer zur sel- 
ben Zeit an einem Rechner 
angeschlossen sind. Der 
Rechner kann aber immer 
nur ein Programm bearbei- 
ten, daher muß die Be- 
nutzerzeit aufgeteilt wer- 
den. 

Time Sharing ist das Zu- 
weisen von Arbeitszeit 
(meist im Sekunden-Be- 
reich) der Zentraleinheit 
des Rechners an die ver- 
schiedenen Benutzer; es 
ist jedoch auch mit ande- 
ren Programmiersprachen 
möglich. APL spielt heute 
im Zeitalter der Micro- 
computer keine große 
Rolle mehr in bezug auf 
das Time Sharing. 

Das Hauptanwendungs- 
gebiet für APL liegt in 

der Wirtschaftsmathema- 
tik und Statistik sowie in 
der Mathematik bei der 
Vektor- und Matrizen- 
rechnung. Vorteile gegen- 
über Fortran und Algol: 
bessere Datenhandha- 
bung und bessere Dialog- 
möglichkeiten. Im Gegen- 
satz zu diesen ist APL 
jedoch interpretativ: Je- 
der Befehl wird sofort in- 
terpretiert und in eine 
Maschinensprache umge- 
formt (kein Compiler 
notwendig). Außerdem 
ist APL fünf- bis achtmal 
schneller als Cobol und 
Fortran. 


Weitere Vorteile von APL: 
® APL bietet sowohl gute 
Berechnungsmöglich- 

keiten als auch eine gu- 
te Textverarbeitung; 

© Durch wenige Regle- 
ments und wenige Sym- 
bole ist APL sehr kom- 
pakt und leicht erlern- 
bar für den Anfänger; 

® Die zu bearbeitenden 
Daten müssen nicht wie 
in anderen Sprachen 
vom Benutzer genau de- 
finiert werden. Es muß 
keine Rücksicht auf vor- 
gegebene Formate und 
Größenordnungen der 
Daten genommen wer- 
den; 

®& Problemlose Matritzen- 


und Vektorverarbeitung 
sowie einfache Program- 
mierung von Tabellen- 
ausgaben etc. 


APL unterscheidet sich in 
einigen Punkten sehr stark 
von anderen Programmier- 
sprachen, und obwohl 
schon etwas betagt, gibt 

es keine vergleichbare 
Sprache. 

Sie ist nicht nur eine höhe- 
re. Programmiersprache zur 
Beschreibung von Algorith- 
men (problemorientiert), 
sondern auch eine moder- 
ne Notation für die Dar- 
stellung mathematischer 
Sachverhalte. Komplizier- 
te mathematische Zusam- 
menhänge können in 

APL vereinfacht darge- 
stellt werden. In APL ist 
der Umgang mit komple- 
xen Objekten wie Vek- 
toren, Matritzen und Fol- 
gen genauso einfach wie 
mit einfachen Zahlen. 
Komplizierte mathemati- 
sche Zusammenhänge kön- 
nen so einfach und ver- 
ständlich dargestellt werden. 


In APL gibt es drei Grup- 
pen von Operatoren: 


1. Skalare Operatoren. 
Diese sind für skalare 
Argumente definiert, 
die als Ergebnisse wie- 
derum Skalare liefern. 
Die skalaren Operato- 
ren sind jedoch auch 
auf beliebige Struktur- 
größen anwendbar, al- 
lerdings muß bei dyadi- 
schen Funktionen ent- 
weder die Struktur von 
Links- und Rechtsargu- 
ment identisch oder ei- 
nes der beiden Argu- 
mente ein Skalar sein. 


2. Gemischte Operatoren. 
Hier treten stets Vekto- 
ren als Argumente oder 
als Ergebnis auf. Sie las- 
sen sich daher nicht oh- 
ne weiteres auf Argu- 
mente höheren Ranges 
erweitern. 


3. Spezielle Operatoren. 
Alle übrigen Operato- 
ren, die nicht zu 1. oder 
2. gehören, werden als 
spezielle Operatoren 
bezeichnet. 


Das Hauptmerkmal von 
APL liegt darin, daß ein 
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in der Notation von Iver- 
son dargestelltes Problem 
bereits das Programm zu 
dessen Lösung darstellt. 
Zur Programmgestaltung 
stehen ergänzend zur Ver- 
fügung: die Möglichkeit 
zur Programmstrukturie- 
rung (Verzweigung, Schlei- 
fen, Unterprogrammbil- 
dung) und die Namensge- 
bung für das Programm. 
Nicht zuletzt zu nennen 
ist die Möglichkeit, Pro- 
gramme zu editieren, kor- 
rigieren, abzuspeichern 
etc.,; aber das zeichnet 

ja alle Programmierspra- 
chen aus. 

Oft ist es nicht erforder- 
lich, ein Problem als APL- 
Programm zu bearbeiten. 
Vielmehr wird das Pro- 
blem mit mehreren An- 
weisungen Schritt für 
Schritt der Lösung zuge- 
führt. Sobald ein Pro- 
blem mehrfach auftritt 

— nur mit wechselnden 
Parametern — wird eine 
Funktion auch program- 
miert. 

APL ist ein interpretati- 
ves System. Jede einge- 
gebene Anweisung wird 
sofort in eine system- 
interne tabellarische 
Form umgewandelt und 
ausgeführt. Einzige Aus- 
nahme sind Programm- 
zeilen mit definierten 
Funktionen. Diese wer- 
den zum späteren Ge- 
brauch abgespeichert. 
Wie bei allen interpreta- 
tiven Programmierspra- 


chen erfolgt hier eine di- 
rekte Fehlererkennung 
und -meldung, was die 
Ei aunerung erleich- 
ert. 


DESKTOP FÜR 
PROGRAMMIERER 


Die Arbeit in APL ist ver- 
gleichbar mit der Arbeit 
am Schreibtisch (nicht zu 
verwechseln mit Desk 
Top Publishing): Man 
macht sich Notizen, führt 
Berechnungen durch, hält 
Zwischenergebnisse fest, 
faßt Ergebnisfolgen in 
Tabellen zusammen und 
räumt von Zeit zu Zeit 
den Schreibtisch wieder 
auf, indem man nicht 
mehr benötigte Notizen 
in den Papierkorb wirft. 


Tabelle 3: 


Programmbeispiel zu Autopit: 
Listing 


PARTNO/4B48 FLANSCH 

MACHIN/I 

REMARK/BESCHREIBUNG DES ROHLINGS 
CONTUR/BLANK 
BESIN/-3, 40, VLARGE PLAN, -3 
RGT/DIA, 150 

RGT/PLAN, 57 

RGT/DIA,8R 

TERNCO 

REMARK/BESCHREIBUNG DES ROHLINGS 
CONTUR/PART 

SURFIN/FIN 
MiB,N10,BEGINN/13,77.5,XSMALL,DIA,85,BEVEL,1,FIT,3,0SETNO, 2 
MO ,RGT/PLAN, 
L2=LINE/B,68.9,ATANGL,6B, 

Mi ,RET/L2 
M2,RDT/DIA,146,RGH,FIT,4,0STEND, 1 
L4=LINE/B,68.5,80,ATANGL,-75 
M3,RGT/L4,FEED,B.8 

M4 ‚NS, RGT/PLAN, 26, ROUND,5 

M&,N7 LFT/DIA, 128, BEVEL,3,FIT,3 
MB,N®,RET/PLAN, 56, BEVEL, 1 
L9=LINE/53,43,1,15,42.5 

RBT/LY 

TERNCO 

REMARK/TECHNOLOGISCHE DEFINITIONEN 
PART/CTR, 258, TORLIM, 100 
CLANP/NORMAL,DRL,3,ZPS, 15 
CHUCK/1,DEL,40,MHJ,68,DJ,388 
PPRINT/WERKSTUECK AM AUSSENDURCHMESSER EINSPANNEN 
RENARK/BEARBEITUNGSDEFINATIONEN 
AI=FACE/RGH, TOOL, 112,9, 5PEED, 145 
A2=TURN/REH, TOOL,113,9,SPEED, 145 
A4=CONT/RGH, TOOL,114,9,SPEED, 145 
AS=TURN/FIN, TOOL,212,11,8PEED, 128 
A6=CONT/FIN, TOOL,214,11,5PEED, 88 
REMARK/BEARBEITUNG DES WERKSTUECKES 
CUT/AL,MB,TO,N® 

CUT/A4,N9,TO,NI® 

CUT/A2,MB,RE,M3 

CUT/A4 MB, RE,N3 
CUT/A6,N9,RE,N3,FEED, „Bl 
CUT/A6,N9,TO,MIR,FEED,.85 
CLAMP/INVERS; DRL;56,2PS, 28 
PPRINT/WERKSTUECK UMSPANNEN 
Bi=THREAD/TOOL,217,1,SPEED, 128 
CUT/A2,M2,T0,03 

CUT/AL,ML,RE,NO 

CUT/As,MD, TO,M3,FEED,.85 
CUT/AS,MIB,RE,MiB,FEED,.82 
CUT/BI,M2,T0,M3,DEPTH, 2.8, DIRECT, 25,PITCH, 2,1,PASSES,6,1 
FINI/ 


Dieser Arbeitsumgebung 
entspricht in APL der 
aktive Workspace (Ar- 
beitsbereich). 

Jedem APL-Benutzer 
steht ein solcher Work- 
space mit jeweils 32 K- 
Byte Speicherplatz zur 
Verfügung. Hierin finden 
alle Eintragungen, Pro- 
grammabläufe, Löschun- 
gen usw. statt. Werden 
Programme gestartet oder 
soll auf Variablen zuge- 
griffen werden, so müs- 
sen diese im aktiven Work- 
space vorhanden sein. 
Verschiedene Workspaces 
werden in Bibliotheken 
gespeichert. Jedem Be- 
nutzer ist eine Bibliothek 


DATENSCHUTZ 
BLEIBT GEWAHRT 


zugeordnet, mit der Mög- 
lichkeit einer Schutzken- 
nung. Die hier abgelegten 
Workspaces werden als 
passiv bezeichnet. Aktiv 
ist immer nur eines — 

das aktuelle Workspace. 
Dieses befindet sich im 
Arbeitsspeicher des Rech- 
ners (bei mehreren An- 
wendern auch mehrere 
Workspaces), während 
sich die passiven Work- 
spaces immer auf exter- 
nen Datenträgern befin- 
den (Festplatte o.ä.). 
Workspaces können vor 
dem Zugriff anderer Be- 
nutzer geschützt werden. 
Auf ungeschützte Work- 
spaces können alle Be- 
nutzer zugreifen, aller- 
dings nur lesend, nie 
schreibend. 

Der Inhalt des aktiven 
Workspace kann mit Hilfe 
von Systemanweisungen 
geändert werden. Außer- 
dem existieren Anwei- 
sungen für die Manipula- 
tion der Workspace-Bib- 
liotheken und für die 
Datenübertragung zwi- 
schen verschiedenen 
Benutzern. 

Alle Systemanweisungen 
beginnen mit einer Klam- 
mer ‘*)“, nach links offen. 
Zwischen den Systeman- 
weisungen und den APL- 
Ausdrücken muß streng 
unterschieden werden; so 
dürfen diese beiden Be- 
fehlstypen nicht gemischt 
werden. 

Jedem Workspace muß 
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Tabelle 4: 


Programmbeispiel in BASIC 
in Standard-BASIC 
Listing-Ausschnitt 


REM DIMENSIONIERUNG 108 PROBEN * 
1B DIM P(188) 

28 GOSUB 508 

25 RE RR BILDSCHIRM LOESCHEN + 
38 PRINTCHR$ (147) 

40 FRINT"WIEVIELE PROBEN SOLLEN UNTERSUCHT WERDEN" 

45 PRINT 

5@ INPUT N 

saFORI=LTON 

7a IF I= 9 THEN 98 

80 PRINT I:PRINT TAB(2) "PROBE":GOTO 188 

98 PRINT IsPRINT TAB(3) "PROBE" 

188 INPUT P(I) 

110 NEXT I 

120 PRINT "ANZAHL DER PROBEN =" N 

138 REN rss RR ORDNEN DER PROBEN * 
1HB LETL=N -1 

ISO FOR J = 1 TOL 

160 IF PiJ) = PK) THEN G0TO 198 

178 LETC = Pi) 

180 LET PiJ) = PK) 

198 NEXT K 

208 NEXT J 

218 PRINT "KLEINSTER WERT =" PN) 

228 PRINT "GROESSTER WERT =" PD) 

20 RN MITTELWERT # 
240 LETM=98 

258 FORI = 1 TON 

260 LETM=M+ PU) 


278 NEXT I 

280 LET M = M/N 

298 PRINT "MITTELWERT "MH 
Sea LETX= 28 

3iß FORT = TON 

32a LETX=X + (PIN - M.2 

338 NEXT I 


30 REM He VARTANZ UND STANDARTABWEICHUNG * 


SSOLETS2=EI /(N-NRX 

340 LET 5 = SQR (52) 

378 PRINT "VARIANZ =" 

388 PRINT "STANDARTABWEICHUNG =* 5 

3 RR VARIANZKOEFFIZIENT * 
408 LETV= (5 /M) * 188 

aid PRINT "VARIANZKOEFFIZENT =" V ®%" 

420 GET R$ : IF RS = "" THEN 60TO 428 

430 REN He AUSDRUCK DER PROBEN IN GEORDNETER REIHE # 
48 FORI=1TON 

458 PRINT Pl) 

460 NEXT I 

sß8 PRINT "TEST" 

510 RETURN 


............nn......n..nmunmmmunmonmnennemssnnnnennsrenrenronmonmnoznonmomsmssmmmmmm 


ein Name gegeben werden, 
unter dem es aufgerufen 
und bearbeitet oder 

aber abgespeichert und 

in der Bibliothek wieder 
aufgefunden werden kann. 
Der Name des Workspace 
kann jeder beliebige in 
APL zugelassene sein, al- 
lerdings sind nur die er- 
sten elf Zeichen relevant 
für die Identifikation. 

Der Workspace in APL be- 
steht in der Regel aus Pro- 
grammen und Daten (in 
Form von Variablen). Je- 
de Funktion und jede 
Variable erhält einen ein- 
deutigen Namen. Die Na- 
mensgebung unterliegt 
strengen Definitionsregeln. 
Zusätzlich ist im Work- 
space ein Bereich für 
Symboltabellen reserviert, 
in dem alle Namen der 
vorhandenen Objekte ein- 
getragen werden. In der 
Regel sind dies nicht mehr 
als 256 Eintragungen. Die- 
se Voreinstellung kann je- 
doch geändert werden. 


TASTATURBELEGUNG 
NOTWENDIG 


Namen können zu Grup- 
pen zusammengefaßt wer- 
den, welche ihrerseits 
wieder mit Namen gekenn- 
zeichnet werden. Auch 
hier sind genaue Regeln 
zu beachten. Namen in 
diesen Listen müssen 
nicht zwangsläufig auch 
belegt sein. Diese Namens- 
liste ist manipulierbar mit 
verschiedenen Befehlen. 
So kann man sich zum 
Beispiel eine Liste alpha- 
betisch ordnen lassen, ge- 
trennt nach Variablen, 
Funktionen oder Grup- 
pen. 

APL benötigt eine beson- 
dere Tastatur oder zu- 
mindest eine Neubele- 
gung der Tasten, denn 
APL arbeitet mit einer 
ganzen Reihe von Sonder- 
zeichen. Diese sind in er- 


. ster Linie Definitionen 


von APL-Funktionen (wie 
zum Beispiel das Wurzel- 
zeichen in der Mathe- 
matik). 

APL kennt keine speziel- 
len Ein- und Ausgabean- 
weisungen. Daten wer- 
den zusammen mit den 
Operatoren eingegeben. 
Alphanumerische Daten 
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werden in Hochkommas 
gesetzt. Eingaben wer- 
den stets um sechs Zei- 
chen nach rechts einge- 
rückt eingegeben. Ausga- 
ben erfolgen in der ersten 
Spalte beginnend. 
Verschiedene Rechner- 


implementationen unter- . 


stützen die Hard- und 
Softwareeigenschaften 
spezieller Computer. 
APL-Plus für den Apple- 
Macintosh beispielsweise 
verwaltet Pull-Down-Me- 
nüs, Ikondarstellung, gra- 
fische Eigenschaften 
sowie Mauseingabe. 


6. APS 

Assembly Programming 
System. 
Maschinenorientierte 
Programmiersprache. 

APS ist eine spezielle Aus- 
führung von Assembler 
(siehe dort). 


7. APT 

Automatically 
Programmed Tools. 
Anwendung nur im Ma- 
schinenbau zum nume- 
rischen Steuern von Werk- 
zeugmaschinen. Es gibt 
viele Versionen von APT, 
die alle in erster Linie 
von den zu steuernden 
Maschinen abhängen. 
Beispiel: die Teilsprache 
EXAPT. Sie wird für Ma- 
schinen eingesetzt, die 


bohren, fräsen und drehen. 


APT und EXAPT sind die 
wichtigsten Sprachen zur 
Steuerung von NC-Ma- 
schinen. 

APT ist besonders für 
Mehrachsprobleme geeig- 
net. 

Die gewünschte Bahnkur- 
ve wird in Polygonpunkte 
zerlegt, die geradlinig 
verbunden werden. Die 
räumliche Kurve wird so- 
mit durch lineare Inter- 
polation erzeugt. 

APT wurde 1963 in den 
USA erstellt und zwei 
Jahre später in Deutsch- 
land zu EXAPT weiter- 
entwickelt. 

Seit 1967 besteht in 
Deutschland ein „APT 
und EXAPT-Verein“ 

in Aachen. 


8. Assembler 
Maschinenorientierte 
Programmiersprache. 


Tabelle 5: 


.unmnninmnnnnnnanmmnnessnsnsnamumnshnmeronnmocanmnspsmnemunmmmmmm 


Programabeispiel zu C 
Strukturiertes Listing 


[A Priazahlenprograam "Sieb des Erathostenes" 
(nach BYTE 1/1983, mit Korrekturen) 


*/ 
$include (stdio.h) 


$define TRUE 1 


$define FALSE d 
$define DURCHL 258 


*define MENGE 
char flags(MENGE +1) = (9); 
main I) ( 


register int i, k} 


static int lauf, zaehler; 


printf("%d Durchlaeufe: *, DURCHL); 
tor(lauf = i5lauff= DURCHL; lauf+r) ( 


zaehler = B; 


torti = 8; i = (= MENGES i++) 
flags(i) = TRUE; 
torti = 25 i (= MENGES i+r) ( 
ittflagsti)) ( 
for(k=i + ig k (= MENGES k te i) 


tlagsik) = FALSE; 


zaehlert+tj 


) 
) 
) 


printf("%d Priazahlen/n" , zaehler); 


exit (8); 


;.uumammmamnarennmnnnnnnnnn nun nnnn nme nancamnmemmmm 


Assembler-Befehle sind 
dem eigentlichen Maschi- 
nencode sehr ähnlich: 
Jeder Befehl, jedes 
Sprachelement entspricht 
genau einem Maschinen- 
befehl. 

Die Struktur der einzel- 
nen Befehle ist primitiv 
einfach: Befehlscode, 
Adresse 1, Adresse 2, 
Adresse 3. Es gibt Ein-, 
Zwei- und Drei-Adreß- 
Assembler, je nachdem, 
wie viele Adressen hinter 
dem eigentlichen Befehl 
stehen können. 

Liegt ein sogenanntes 


Ein-Adreß-System vor, 
wird ein Akkumulator 
(zentrales Register) benö- 
tigt. Jeder Befehl steuert 
den Akkumulator an und 
verknüpft dessen Inhalt 
mit der im Befehl ange- 
gebenen Adresse. 

So müssen selbst einfache 
Anweisungen bei der Pro- 
grammierung schrittweise 
zergliedert werden (siehe 
Tabelle 1). 

Zwei- und Drei-Adreß- 
Assembler sind entspre- 
chend kompakter und 
schneller in der Ausfüh- 
rung, setzen aber einen 
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anderen Maschinentyp 
voraus. 

Für den Befehlscode sind 
Kürzel eingeführt worden, 
die sogenannten mnemo- 
technischen Abkürzun- 
gen (Mnemotechnik = Er- 
setzen von Zeichenketten 
durch Worte und Kürzel, 
die Bezug zur Bedeutung 
der Zeichenkette haben). 
Programme müssen mit 
einem Assembler-Pro- 
gramm (ähnlich einem 
Compiler oder Interpre- 
ter bei anderen Sprachen) 
übersetzt werden, was al- 
lerdings durch die Kürze 
und Einfachheit der Be- 
fehle sehr rasch geschieht. 
Das Assembler-Programm 
liefert zu dem vom Pro- 
grammierer geschriebenen 
Quellprogramm ein Ob- 
jektprogramm. Für den 
umgekehrten Fall kann 
man einen Disassembler 
verwenden, der den Ma- 
schinencode (Objektpro- 
gramm) wieder in lesbare 
mnemotechnische Be- 
fehlsfolgen umwandelt 


(Quelle). 


ASSEMBLER BRINGT 
GESCHWINDIGKEIT 


Hierin sind auch die Vor- 
teile von Assembler zu 
sehen: die Ausführungsge- 
schwindigkeit der Program- 
me und der geringe Spei- 
cherplatzbedarf. Beides 
Vorteile, die im Vergleich 
zu anderen Sprachen 
sehr ins Gewicht fallen 
können, vor allen Dingen 
bei kleineren Computer- 
anlagen. 

Neben diesen Vorteilen 
hat Assembler allerdings 
sehr schwerwiegende 
Nachteile aufzuweisen: 
Assembler-Programme 
sind nicht zu lesen, da sie 
nicht mit Befehlen ge- 
schrieben werden, welche 
sofort ihre Wirkung auf 
den Programmablauf er- 
kennen lassen, sondern in 
Form eines Code. 

An dieser Stelle sollte 
vielleicht einmal gesagt 
werden, was ein Befehl 
in einem Programm ist: 
Mit der Bezeichnung Be- 
fehl ist fast immer ein 
Makro-Befehl gemeint. 

Er enthält meist mehrere 
Schritte, die für den Pro- 
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grammierer allerdings 
nicht interessant sind. 


Beispiel: Eine Addition 
in irgendeiner 
höheren Pro- 
grammier- 
sprache 


A=B+tC 


In den meisten Program- 
miersprachen kann eine 
Addition in einer sol- 
chen Form angegeben 
werden. 

Der Wert der Variablen 

B soll mit dem Wert der 

Variablen C addiert und 

das Ergebnis in der Varia- 

blen A gespeichert wer- 
den. 

Für den Computer ist dies 

allerdings nicht ein Be- 

fehl, sondern gleich ein 
kleines Bündel von Be- 
fehlen: 

1. Zunächst muß geprüft 
werden, wo sich im 
Speicher die Variablen 
B und C befinden. Die 
Stellen sind durch 
Adressen markiert. 

2. Sind die Adressen ge- 
funden, werden die In- 
halte (Werte) von B 
und C gelesen. 

3. Der Wert von B muß 
nun in das Addierwerk 
gebracht werden. 

4. Der Wert von C muß 
ebenfalls in das Addier- 
werk übermittelt wer- 
den. 

5. Dort wird der Wert von 
B und der Wert von C 
verrechnet und es ent- 
steht ein neuer Zahlen- 
wert, die Summe aus 
BundC. 

6. Nun wird der Speicher- 
platz, der für die Varia- 
ble A reserviert wurde, 
gesucht. 

7. Der Inhalt des Addier- 
werkes muß nun in die- 
sem Speicherplatz ab- 
gespeichert werden. 

Will man das Ergebnis 

der Addition erfahren, so 

muß der Inhalt der Va- 

riablen A abgerufen 
werden. 

In Assembler muß nun je- 

der Schritt für sich durch- 

geführt werden, wozu in 
anderen Sprachen eine 
kurze Zeile genügt. Au- 
ßerdem sind andere Spra- 
chen meist genormt, das 
bedeutet, die Anpassung 

»iner bestimmten Sprache 


an einen bestimmten Com- 
putertyp geschieht mit 
Hilfe von Compilern oder 
Interpretern, die. zur Aus- 
stattung einer Anlage ge- 
hören. Da Assembler 

aber praktisch direkt mit 
den Maschinencodes ar- 
beitet, gibt es für jeden 
Anlagentyp ein anderes 
Assembler als Sprache und 
ein anderes Assembler als 
Programm zur Umwand- 
lung des Quelltextes in 
den Maschinencode.: 
Assembler gibt es seit 
1953. 


9. ATLAS 
Anwenderspezifische 
Realzeitsprache. 

ATLAS ist maschinenun- 
abhängig und kann daher 
als „höhere“ Program- 
miersprache bezeichnet 
werden, jedoch eignet 

sie sich vorwiegend zum 
Testen von Geräten, wo- 
zu sie auch eigentlich 
entwickelt wurde. 


10. Autocode 
Maschinenorientierte, sehr 
vereinfache Programmier- 
sprache. 

Autocode ist der Vorläu- 
fer der Assembler-Spra- 
chen und wurde 1953 
entwickelt. 

Autocode war durch sei- 
ne Einfachheit leicht er- 
lernbar. Die Nachteile 
lagen in der sehr starken 
Orientierung an der ent- 
sprechenden Rechenan- 
lage (im Gegensatz zur 
Problemorientierung), da- 
her sind die Programme 
nicht von einer auf eine 
andere Rechenanlage glei- 
chen Typs übertragbar 
(wie bei Assembler). 

Aus Autocode entstand 
später Autocoder. Beide 
Sprachen sind heute 
kaum noch gebräuchlich. 
Assembler hat sich we- 
gen seiner besseren Struk- 
turen durchgesetzt. 
Autocode war die Pro- 
grammiersprache der 
zweiten Anlagengenera- 
tion (etwa 1955 bis 
1965). 


11. Autopit 
Automatisches Program- 
mieren Inclusive 
Technologie. 
Eigenentwicklung der Fir- 


ma Pittler. Autopit hat 
deutsche Befehlsfolgen 
und einige Vorteile in der 
Materialbearbeitung zu 
bieten. ö 

Das System von Autopit 
berücksichtigt Abmes- 
sungen und Materialbe- 
sonderheiten und trifft 
daraufhin automatisch 
Entscheidungen. 

Autopit ist maschinen- 
orientiert und kann auch 
bei weniger großen An- 
lagen sinnvoll eingesetzt 
werden, ist aber speziell 
für einen Maschinenty- 
pus der Firma Pittler 
entwickelt worden. 


12. Autopol 

Automated Programming 
Of Lathes. 

Für Drehbanksteuerung 
und andere Maschinen 
mit zweidimensionalen 
Bewegungsabläufen (sie- 
he APT). 

Trotz eines sehr kleinen 
Sprachumfangs können 
alle erforderlichen Vorgän- 
ge gesteuert werden, wo- 
durch Autopol sehr be- 
nutzerfreundlich ist. 

Das fertig erstellte Pro- 
gramm muß mit Hilfe ei- 
nes Anpassungsprogram- 
mes übersetzt werden 
(ähnlich dem Compiler- 
oder Assemblerprinzip). 


13. AUTOPROG 
Entwickelt in der CSSR 
für numerische Steue- 
rung. 

Anwendung nur regional. 


14. Autopromt 
Automated Programming 
Of Machine Tools. 

Für die Positionierung 
von Werkzeugen im 
Maschinenbau (NC- 
Steuerung). 

Diese Sprache zeichnet 
sich aus durch ihren kon- 
kreten Bezug zu der Be- 
zeichnungsweise in ihrem 
Anwendungsbereich, dem 
Maschinenbau. Es ist da- 
her relativ einfach, an- 
hand von technischen 
Zeichnungen das Steuer- 
programm für die Werk- 
zeugmaschinen zur Fer- 
tigung eines Werkstückes 
herzustellen (siehe APT). 
Da die übliche Termino- 
logie aus dem Maschinen- 


bau in symbolischer Form 
in die Syntax von Auto- 
promt übernommen wur- 
de, ist diese Programmier- 
sprache besonders benut- 
zerfreundlich und hat 
auch selbstdokumentie- 
renden Charakter. Auto- 
promt ist daher für die 
Werkzeugmacher leicht 
erlernbar. 


15. Autospot 
Automated System For 
Position Of Tools. 

Für Bohr- und Drehma- 
schinensteuerung (siehe 
APT). 

Auch Autospot-Program- 
me müssen nach der Er- 
stellung zunächst mittels 
eines Anpassungspro- 
gramms übersetzt wer- 
den. Der vom Computer 
daraufhin erstellte Loch- 
streifen wird zur Maschi- 
nensteuerung benutzt 
NC-Steuerung). 


16. BASIC 

Beginners All purpose 
Symbolic Information 
Code. 

BASIC wurde ursprüng- 
lich entwickelt, um An- 
fängern den Einstieg in 
die Programmiertechnik 
zu vereinfachen, hat 
sich aber durch die viel- 
seitigen Möglichkeiten 
der Ein- und Ausgabe 
von Daten zur Dialog- 
sprache schlechthin ent- 
wickelt. BASIC zeichnet 
sich aus durch gute 
String-Verarbeitung (Zei- 
chenketten, Texte) und 
einfach aufgebaute 
Befehle. 


BASIC — PROGRAM- 
MIERSPRACHE 


FÜR JEDERMANN 


BASIC entstand etwa 
1964 an der Dartmouth 
University in den USA 
unter John Kemeny und 
Thomas Kurtz. 


Es dürfte die wohl be- 


kannteste Programmier- 
sprache sein, nicht zuletzt 
durch die Technologie der 
Mikrocomputersysteme, 
die heute etwa zu 90 Pro- 
zent mit BASIC und mit 
Dialekten von BASIC 
arbeiten können. 

Die ersten Microcompu- 
ter (heute würde man sie 
als Homecomputer klassi- 
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fizieren) konnten zum 
Teil sogar nur in BASIC 
programmiert werden, 
weil der BASIC-Interpre- 
ter fest ‚‚verdrahtet“ 

war (ROM). 

BASIC ist eine dialogorien- 
tierte Sprache, was nicht 
heißt, daß mit BASIC 
keine mathematischen 
Probleme gelöst werden 
können, da große Ähn- 
lichkeiten zu Fortran und 
Algol bestehen. 

Da BASIC im Gegensatz 
zu den genannten ande- 
ren Programmiersprachen 
mit einem Interpreter ar- 
beitet, ist das Program- 
mieren, Fehlersuchen und 
Austesten von Program- 
men sehr komfortabel und 
schnell. Ein Editor wird 
beim Programmieren 
nicht benötigt, da die Pro- 
grammzeilen direkt vom 
Bildschirm in den Inter- 
preter übernommen wer- 
den. Noch vor der Aus- 
führung des Programms 
(oder dessen Interpreta- 
tion) wird jede Zeile bei 
der Eingabe auf Syntax- 
fehler untersucht. 
Beispiel: 

Eingabe der Zeile 

15 PINT A 

Meldung des Interpreters 
? SYNTAX ERROR 
Korrektur der Zeile 

15 PRINT A 


Der Anwendungsbereich 
von BASIC übergreift den 
vieler anderer Program- 
miersprachen. 


SCHWIERIGE 
STRUKTURIERUNG 


Der größte Nachteil von 
BASIC für den Programmie- 
rer ist die schlechte Les- 
barkeit von umfangreiche- 
ren fertigen Programmen, 
da es keine strengen Struk- 
turierungsmodi gibt, an 

die sich der Programmierer 
halten muß, wie in ande- 
ren Programmiersprachen. 
So ist die Gefahr der Ver- 
schachtelung von Program- 
men weitaus höher.als et- 
wa bei Pascal, Fortran 
oder Cobol. 

Daher wird BASIC gerne 
nachgesagt, es forme beim 
Anwender einen schlech- 
ten Programmierstil und 
sei daher für Anfänger 


Tabelle 6: 


PROCEDURE DIVISION 
OPEN INPUT FILES 


DUTPUT PRINTER 
READ FILEB 

FOLLOWING 
IF NUMBER IN B 15 EQUAL LAST 
60 TO END ELSE NEXT SENTENCE, 
MOVE NUMBER IN B TO NUMBER IN 


ACAT, INTER 
CONTINUE 
ADD TOTAL TO S IN B 
GIVINS TO TOTAL 
READ FILEB 


IF NUMMBER IN P 15 EQUAL INTER 
60 TO CONTINUE, ELSE NEXT SENTENCE 


MOVE TOTAL TO GRAM IN ACAT 
WRITE ACAT 
60 TO FOLLOWING 
END 
CLOSE FILEB,PRINTER 
STOP RUN 


nur bedingt geeignet. 

In BASIC müssen keine 
Variablennamen dekla- 
riert werden, jedoch sind 
die Namen nur zwei Zei- 
chen lang, was die Les- 
barkeit der Programme 
erschwert. 

Die BASIC-Syntax selbst 
ist leicht verständlich und 
die meisten Befehle sind 
selbstdokumentierend. 
Unterprogramme werden 
in BASIC nicht mit einem 
Label (Namen) versehen, 
sondern können direkt an- 
gesteuert werden. Nach- 
teil: Fehlerquelle und Un- 
übersichtlichkeit. Außer- 
dem werden Parameter 
immer automatisch den 
Unterprogrammen zur 
Verfügung gestellt, was 
die Flexibilität ein- 
schränkt. 

BASIC-Dialekte sind 

zum Beispiel: 

BASIC 80, Integer 
BASIC, Microsoft BASIC, 
BASIC 86, Advanced 
BASIC, XY-BASIC, 
EXTRABASIC, C-BASIC- 
2, Multiuser BASIC, 
Level III BASIC, Better 
BASIC, usw., die Reihe 
könnte beliebig fortge- 


setzt werden. Nur wenige 
BASIC-Versionen bringen 
wirklich interessante 
Neuerungen, wie GfA- 
BASIC: Hierbei handelt 
es sich um einen BASIC- 
Dialekt mit Pascal- und 
C-Elementen. GfA-BA- 
SIC arbeitet ohne Zeilen- 
nummern und kann com- 
piliert und im Direktmo- 
dus angewendet werden, 
ähnlich dem True BASIC 
für den Amiga. 


Die Standard-BASIC- 
Syntax: 


Anweisungen 
LET 


GOTOÖ 
STOP 
END 


RESTORE 


Standardfunktionen 
SOR Wurzelfunktion 
ABS Absolutfunktion 
SGN Vorzeichen- 
funktion 
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Logarithmus- 
funktion 
Exponential- 
funktion 
Sinusfunktion 
Cosinusfunktion 
Tangensfunktion 
Arcustangens- 
funktion 
Ganzzahlfunktion 
Zufallszahlen- 
funktion 


Systembefehle 
LIST 


NEW 
RUN 
SAVE 
LOAD 


E/A Anweisungen 
READ 


OPEN 

CLOSE 

DATA 

INPUT 

GET 

PRINT 

PRINT USING 


Operatoren 

+ Addition 

_ Subtraktion 

* Multiplikation 
Division 

ii Potenzierung 


AND Konjunktion 
OR Disjunktion 
NOT Negation 


Obwohl BASIC starke 
Konkurrenz bekommen 
hat, ist es immer noch 
die Programmiersprache 
für den Anfänger. Wer au- 
todidaktisch arbeitet, al- 
so sich selbst Program- 
mierkenntnisse aneignen 
will, wird in der Regel 
auf BASIC zurückgrei- 
fen. Fast alle Homecom- 
puter arbeiten standard- 
mäßig mit BASIC-Dia- 
lekten. 
BASIC-Interpreter benö- 
tigen wenig Speicherplatz 
und sind bei den meisten 
Home-Computern in 
ROMs (Read Only Me- 
mory) untergebracht, 
sonst auf Diskette verfüg- 
bar. 

Zur Codeoptimierung gibt 
es auch BASIC-Compiler. 
Durch sie wird ein gerin- 
ger Geschwindigkeitsge- 
winn erzielt. Im profes- 
sionellen oder semi-pro- 
fessionellen Programm- 
bereich ist BASIC selten 
zu finden. 


Bien SPRACHER 


Seit Mitte 1987 gibt es 
eine weitere Version mit 
dem Namen True BASIC 
(das wahre BASIC). Sei- 
ner Entwicklung geht ei- 
ne Geschichte voraus: 
Viele BASIC-Dialekte, 
die aufgrund der einge- 
schränkten Möglichkei- 
ten der verfügbaren Hard- 
ware entwickelt wurden, 
ließen eben auch nur ein- 
geschränkte Möglichkei- 
ten der Programmierspra- 
che und der damit erstell- 
ten Software zu. Zu die- 
ser engen Verknüpfung 
von BASIC mit der Hard- 
ware eines bestimmten 
Computers kam eine gro- 
ße Einschränkung der 
Portabilität, obwohl ge- 
rade diese ein Hauptkri- 
terium für die Entwick- 
lung von BASIC war. 


TRUE BASIC: BESSER 
ALS DER STANDARD 


Die hier genannten Nach- 
teile, insbesondere die 
Einschränkungen aufgrund 
der Hardwarevorausset- 
zungen, wurden BASIC 
im allgemeinen nachge- 
sagt, obwohl sie im Grun- 
de nicht der Sprache an 
sich anzulasten waren. 

Die Entwickler hatten we- 
der eine unübersichtliche, 
noch eine schwerfällige 
Sprache konzipiert. Da- 
her wurde True BASIC ge- 
schaffen. Hiermit haben 
die ursprünglichen Ent- 
wickler von BASIC, 

Kurtz und Kemeny, ver- 
sucht, die damaligen Vor- 
stellungen von BASIC 
wieder zu realisieren, da 
heutige Microcomputer 
wesentlich bessere Voraus- 
setzungen für die Realisa- 
tion dieses Projektes be- 
sitzen. True BASIC ent- 
spricht vollkommen dem 
National Standard For 
BASIC und garantiert da- 
mit ein hohes Maß an Por- 
tabilität. Es ist ein Ver- 
such der Rehabilitation 
dieser Sprache. 


17. BCPL 

BASIC Combined 
Programming Language. 
Assemblerähnliche Pro- 
grammiersprache. 
Vorläufer von C (siehe 
dort). 


1969 auf den Markt ge- 
bracht, verbindet BCPL 
die Struktur von Algol 
mit der Leistungsfähig- 
keit von Assembler. 
BCPL wurde von Martin 
Richards am Massachu- 
setts Institute of Techno- 
logy entwickelt. Bis Ende 
der 60er Jahre wurde 
BCPL überwiegend und 
mit Erfolg bei der System- 
programmierung einge- 
setzt. : 

Am Bell Laboratorium in 
New Jersey entwickelte 
Ken Thompson hieraus 
die typenlose Sprache B. 
BCPL war ebenfalls ty- 
penlos, wenn der Typ 
des Maschinenwortes un- 
berücksichtigt bleibt. 

Aus B, einer aus BCPL 
abgeleiteten problem- 
orientierten Programmier- 
sprache, wurde Mitte der 
70er Jahre C entwickelt. 


18. BLISS-32 
Systemimplementierungs- 
sprache für VAX-Systeme. 
BLISS-32 unterstützt die 
Entwicklung modularer 
Software nach dem Kon- 
zept der strukturierten 
Programmierung. 

Durch die Möglichkeit 
des direkten Zugriffes 
auf alle Hardware-Kom- 
ponenten der VAX-Syste- 
me wird damit die Pro- 
grammierung von Echt- 
zeit- und Hardware-abhän- 
gigen Anwendungen er- 
leichtert. 

BLISS-32 wird haupt- 
sächlich zur Entwicklung 
von Betriebssystemen, 
Compilern, Laufzeitsy- 
stembausteinen, Daten- 
banksystemen, Kommu- 
nikationssoftware und 
Dienstprogrammen ein- 
gesetzt. 

Die Version VAX-BLISS- 
32 erlaubt insbesondere 
die Entwicklung von sy- 
stemnaher Software für 
die VAX. Die Basisfunk- 
tion der VAX-Architek- 
tur können direkt ange- 
sprochen werden. 


19. C 
Weiterentwicklung von 
BCPL. 

C ist eine Systemimple- 
mentierungssprache. Ne- 
ben der Programmierung 
von Betriebssystemen 
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wird C aber auch in tech- 
nisch-wissenschaftlichen 
Bereichen eingesetzt, da 
ihr Niveau dem von Algol, 
PL/1 oder Pascal angegli- 
chen ist. € ist stark block- 
strukturiert. 

C gibt es seit 1972 und 
wurde von Dennis Ritchie 
aus der Systemimplemen- 
tierungssprache B durch 
Erweiterungen entwickelt, 
zum Beispiel durch Einfü- 
gen von Datentypen. 

Die Sprache C zeichnet 
sich vor allem durch ihre 
hohe Verarbeitungsge- 
schwindigkeit und ihre 
Maschinennähe trotz ho- 
hem Programmniveau aus. 
Der Grad der Komplexibi- 
lität des Programmcodes 
ist frei wählbar, wobei 
sich Lesbarkeit und 
Schreibaufwand natürlich 
konträr verhalten. 

Weitere Vorteile liegen in 
der weniger strengen Ab- 
fassung als etwa PL/1, 
was aber zugleich einen 
großen Nachteil mit sich 
bringt: Die Fehlersuche 
wird erheblich erschwert 
und kompliziert hierdurch 
und durch einige andere 
Hindernisse das Erlernen 
der Sprache und deren 


Anwendung beträchtlich. 


C: DIE NÄCHSTE 
GENERATION 


C ist sicherlich eine wich- 
tige Entwicklung auch für 
die zukünftigen Rechner- 
generationen, mit Sicher- 
heit aber keine Sprache 
für Anfänger. 

C ist Hardware-unabhän- 
gig und daher universell 
einsetzbar. 

Die Leistungsfähigkeit 
von € konnte zum ersten 
Mal 1972 unter Beweis 
gestellt werden. In den 
Bell Laboratories wurde 
zu dieser Zeit das Betriebs- 
system Unix vorgestellt. 
Dieses mittlerweile weit 
verbreitete Betriebssy- 
stem ist vollständig in C 
programmiert. 

C ist heute die Standard- 
sprache für professionelle 
Software-Entwicklungen 
in allen Bereichen. Kom- 
paktheit, Effizienz und 
Schnelligkeit, sowie ein 
hohes Maß an Portabili- 
tät zwischen verschiede- 
nen Hardware-Konfigura- 


tionen und Betriebssyste- 
men zeichnen C aus. 

Die Maschinennähe von 
C-Programmen — bei 
gleichzeitiger Hardware- 
Unabhängigkeit — läßt 
die Erstellung universell 
lauffähiger Programme zu. 
Zeitaufwendige Imple- 
mentierungen für andere 
Rechnertypen können 
praktisch entfallen. 

Die Hochsprache C ist si- 
cherlich nichts für Anfän- 
ger. Um hier sinnvoll und 
routiniert mit den Sprach- 
mitteln umgehen zu kön- 
nen, bedarf es einigen 
Aufwandes. Über die 
Grundsätze der Software- 
Entwicklung sollte man 
Bescheid wissen, bevor 
man sich mit C befaßt. 
Von Vorteil ist sicherlich 
die Kenntnis einer ande- 
ren höheren Programmier- 
sprache. 


SCHWIERIGE 
SYNTAX 


Die Schwierigkeiten der 
Anwender resultieren 
unter anderem aus der 
schlechten Lesbarkeit 
von C-Programmen und 
der unter Umständen 
schwierigen Fehlersuche. 
Die C-Syntax ist für Feh- 
ler geradezu prädestiniert, 
da manche Symbole je 
nach Zugehörigkeit zu an- 
deren Operatoren auch 
andere Bedeutungen er- 
halten. Das Minuszeichen 
etwa bedeutet sowohl 
den zweistelligen Sub- 
traktions-Operator, als 
auch das einstellige Minus. 
Viele Operationen beste- 
hen zudem aus mehr als 
einem Zeichen. Eine Zei- 
chenfolge kann, je nach 
Kontext, also auf die 
eine oder andere Art in- 
terpretiert werden. Die 
Zeile: A+t++Bhatin 


.C die Bedeutung (A + +) 


+ B, könnte aber im Pro- 
gramm auch ganz anders 
gelesen werden, etwa als 
A+(++B), wasin C 
durchaus zugelassen ist; 
jedoch liefern beide Zei- 
len verschiedene Ergeb- 
nisse, was vom Program- 
mierer nicht gewollt sein 
kann. 

Für Microcomputer gibt 
es bereits eine Reihe von 


SSPRCH eu 


Implementierungen für 
C, so zum Beispiel: 


Turbo-C von Borland und 
Heimsoeth, 

Quick-C von Microsoft, 
Zorland-C von Zorland, 
Aztec-C von Manx. 


Kaum hat sich C auf dem - 


Markt etabliert, gibt es 
schon einen Nachfolger: 
C plus plus oder, um bei 
der Syntax von C zu blei- 
ben C++. 

Wie das alte C wurde 
auch C++ in den Bell La- 
boratories entwickelt, 
allerdings von Bjarne 
Stroustrup. C++ erschien 
zum ersten Mal 1983 un- 
ter dem Namen: C with 
Classes. C++ ist aufwärts- 
kompatibel, das heißt, 
„alte“ C-Programme lau- 
fen auch unter C++. 
Dieses Konzept wurde 
zum ersten Mal konse- 
quent bei Betriebssyste- 
men durchgeführt. Be- 
a“ Beispiel ist hier 


20. CDL/2 
Systemimplementierungs- 
Sprache SIL (siehe SL/3). 
SIL-Sprachen sind zwar 
Code-effizient, aber recht 
unbequem in der Pro- 
grammierung. 


21. Cobol 

Common Business 
Oriented Language. 
Sprache für den kauf- 
männischen Bereich. 

Die Sprache Cobol hat 
ihre Stärken dort, wo 
Fortran Schwächen auf- 
weist: in der Handha- 
bung großer Datenmen- 
gen und dem Aufbau 

von Dateien. 

Cobol gibt es seit Ende 
der 50er Jahre und wird 
ständig überarbeitet: vom 
American National 
Standards Institute zu 
ANSI-Cobol oder von 
Codasyl, der Conference 
of Data Systems Language. 
Cobol wurde wie Ada im 
Auftrag des US-Verteidi- 
gungsministeriums ent- 
wickelt. 

Codasyl ist ein Gremium 
zur Weiterentwicklung 
von Programmiersprachen, 
im besonderen von Cobol. 
In Deutschland ist Cobol 
in der DIN 66028 festge- 


legt: „‚Informationsver- 
arbeitung; Programmier- 
sprache Coboi‘“. 

Cobol kommt besonders 
dort zum Einsatz, wo gro- 
fe Mengen von kommer- 
ziellen Daten verarbeitet 
werden sollen. Es gehört 
zu den sogenannten selbst- 
dokumentierenden Pro- 
grammiersprachen. Das 
bedeutet, die Programme 
sind leicht lesbar, was die 
teilweise umständliche 


Programmierung ausgleicht. 


Durch die guten selbstdo- 
kumentierenden Eigen- 
schaften ist Cobol leicht 
erlernbar und auch von 
Nichtprogrammierern gut 
anzuwenden. 

Cobol ist in starkem Ma- 
ße rechnerunabhängig, al- 
so eine echte problem- 
orientierte Sprache. Der 
Einsatz fand bisher meist 
auf größeren Anlagen statt. 
Heute gibt es jedoch lei- 
stungsfähige Compiler für 
viele Kleinrechner und 
Microcomputer. Ab 1985 
beginnt Cobol, auch die 
MS-DOS-Welt auf dem 
IBM-PC zu erobern. Es 
gibt bereits sehr gute Com- 
piler für IBM-kompatible 
Personal Computer. Die- 
se Programme sind sogar 
portabel auf Großrech- 
neranlagen. 


Cobol-Programme beste- 
hen immer aus vier Pro- 
grammteilen (Divisions). 
Dadurch wird eine starke 
Strukturierung erreicht: 

1. Erkennungsteil — 
Identification Division. 
Hier stehen Angabe zur 
Kennzeichnung des über- 
setzten Programmes in 
Form einer Liste. 

2. Maschinenteil — 
Environment Division. 
Es muß angegeben wer- 
den, auf welcher Anlage 
dieses Programm laufen 
soll und welche periphe- 
ren Geräte vom Pro- 
gramm angesprochen 
werden. Hierunter fallen 
auch Dateien. 

3. Datenteil — 

Data Division. 

Die Form der Daten, die 
vom Programm verar- 
beitet werden, muß ein- 
deutig festgelegt wer- 
den, außerdem die Spei- 
cherbereiche und ob es 


sich um Variablen oder 
Konstanten handelt. 

4. Prozedurteil — 
Procedure Division. 
Hier werden alle Abläu- 
fe und Operationen be- 
schrieben, die ausge- 
führt werden sollen: 


Im letzten Teil, dem Pro- 
zedurteil, steht das ei- 
gentliche Cobol-Pro- 
gramm. Die übrigen Divi- 
sions definieren lediglich 
den Programmnamen, die 
Peripherie (im Programm 
angesprochene Geräte 
wie Drucker, Floppy) 
und die Dateien und Spei- 
cherbereiche der Daten. 
Das Standard-Cobol ent- 
hält folgende Befehle: 


Operatoren: 
ADD 


SUBTRACT 
MULTIPLY 
DIVIDE 
COMPUTE 


Steueranweisungen: 
IF 


ALTER 
PERFORM 
GO 


STOP 
E/A-Anweisungen: 
READ 


WRITE 
AGGEPT 
DISPLAY 
OPEN 
CLOSE 


Übersetzer-Anweisungen: 


Daten-Übertragung: 
MOVE 


TRANSFORM 
EXAMINE 


In Cobol können soge- 
nannte Wörter definiert 
werden. Ein Wort besteht 
aus maximal 30 Zeichen: 
Zahlen O bis 9, 

Zeichen A bis Z. 


Beispiele: 
Brutto-Lohn 
Netto-Lohn 
Personenkennziffer. 


Leerzeichen dürfen nicht 
in Wörter geschrieben 
werden, denn sie dienen 
der Trennung. 

Außer den frei wählbaren 
Wörtern gibt es die Cobol- 
Wörter. Sie sind bereits 
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definiert und haben feste 
Bedeutungen. Es gibt 
drei Arten von Cobol- 
Wörtern: 


1. Bindewörter 
Sie werden dazu ver- 
wendet, die Anwesen- 
heit eines Kennzei- 
chens anzuzeigen 
(In und Off), bzw. 
Boolsche Operatoren 
zu bilden (And, Or, 
Not...) 

2. Wahlwörter 
Sie dienen der besseren 
Dokumentation der 
Programme und stei- 
gern so die Lesbarkeit. 
Das Wahlwort ändert 
nichts an der Interpre- 
tation einer Anweisung 
durch den Übersetzer, 
mußs aber der vorgege- 
benen Syntax entspre- 
chen. 

3. Schlüsselwörter 
Sie sind notwendig 
zur Vollständigkeit ei- 
ner Erklärung und müs- 
sen so verwendet wer- 
den, wie in den Forma- 
ten angegeben. 


Wie in anderen Program- 
miersprachen gibt es zwi- 
schenzeitlich auch in 
Cobol einige Versionen 
und Dialekte. 

Wie kaum eine andere 
Programmiersprache wur- 
de Cobol erweitert und 
verbessert. Nur so ist zu 
erklären, daß} sich Cobol 
über Jahrzehnte auf dem 
Markt behaupten konn- 
te, 

Hier die chronologische 
Entwicklung von Cobol: 
Cobol 59 

Cobol 60 

Cobol 61 

Cobol 63 (extended) 
Cobol Edition 65 

Cobol 68 

Cobol 69 

Cobol 70 

Cobol 73 

ANSI 74 Cobol 

Cobol 80 

ANSI 85 Cobol. 

Die vorläufig letzte Ver- 
sion von Cobol, der 
ANSI-85-Standard, hat 
der betagten Program- 
miersprache einen neuen 
Charakter gegeben. 

Die Programme sind über- 
sichtlicher und die Cobol- 
Syntax wurde entrüm- 
pelt. Dennoch finden 


rEEEERIER FREIES SSZEBEE SPRACHE 


Tabelle ?: 


Programmbeispiel zu Comal 88 
Listing 


10 DIM ANTWORTS OF 18 


28 PRINT "WEITER MIT START, CONT ODER STOP" 


38 INFUT ANTKORTS 
48 CASE ANTWORT$ DF 


s® // ES WURDE "START" EINGEGEBEN 


68 WHEN "START" 
60SUB PRUC STARTEN 


70 // ES WURDE 'STOP’ EINGEGEBEN 


88 WHEN "STOP" 


PRINT "DAS PROGRAMM WURDE BEENDET", STOP 
98 // ES WURDE "CONT' EINGEGEBEN 


198 WHEN "CONT" 


PRINT "ES WIRD FORTGEFAHREN" 


118 60 TO 208 


128 // ES WURDE EINE FALSCHE EINGABE GEMACHT 


138 OTHERWISE 


148 PRINT "SIE HABEN EINE FALSCHE ANKEISUNG GEGEBEN" 


158 60 TO 28 
158 ENDCASE 
208 // HIER WIRD FORTGEFAHREN 


sich im ANSI 85 Cobol 
mehr als 40 neue Funk- 
tionen. 

Es ist auch wichtig, daß 
sich eine Sprache der 
technischen Entwicklung 
anpaßt, denn vor 20 
Jahren gab es noch keine 
Bildschirmterminals, so 
Bildschirmterminals. So 
fehlen in alten Program- 
bebefehle für den Bild- 
schirm. Überflüssig auf 
der anderen Seite sind 
Lochkartenbefehle — sie 
können heute aus einer 
Programmiersprache eli- 
miniert werden. Diese 
Reihe könnte beliebig 
fortgesetzt werden und 
gilt natürlich nicht nur 
für Cobol. 


22. Comal 80 
Common Algorithmic 
Language. 

Comal wurde 1980 in 


Dänemark von Borge 
Christensen (State 
Teachers College) und 
Benedict Loftsted (De- 
partment für Computer- 
wissenschaft der Univer- 
sität Aarhus) entwickelt. 
Die Grundstruktur von 
Comal 80 ist der des 
BASIC gleich, jedoch um 
einige Elemente aus an- 
deren Programmierspra- 
chen, zum Beispiel Pas- 
cal, erweitert worden. 
Die Ähnlichkeiten mit 
BASIC sind allerdings 
wesentlich. Comal 80 ist 
somit als eine Erweite- 
rung von BASIC anzuse- 
hen, wird dieses aber in 
Zukunft nicht verdrängen 
können. 

Im Gegensatz zu BASIC 
und vielen anderen Pro- 
grammiersprachen sind 
in Comal längere Varia- 
blennamen zulässig (ma- 


ximal 16 Zeichen). 

In Comal 80 ist es mög- 
lich, Unterprogramme 
zu benennen und Para- 
meter zu übergeben, was 
in BASIC nicht machbar 
ist. Comal 80 ist mehr als 
BASIC selbst dokumen- 
tierend, behält aber alle 
Vorteile der Dialog- 
sprachen. 

Der Befehlsvorrat ent- 
spricht dem von BASIC 
in leicht modifizierter 
Form, zuzüglich der fol- 
genden Anweisungen: 


CASE .. ENDCASE 
WHILE .. ENDWHILE 
REPEAT .. UNTIL 
IF .. THEN ..ELSE 


23. Coursewriter 
Spezielles System für com- 
puterunterstütztes Lernen 
(CAl=-Computer-Aided 
Instruction). 

Im Bereich der Ausbil- 
dung tritt der Computer 
mit Coursewriter-Program- 
men an die Stelle der 
Lehrperson. 

CAl ist maschinenauf- 
wendig, ebenso die 
Coursewriter-Programme. 
Vorteil der Methode ist, 
daß der Schüler das Lern- 
tempo individuell bestim- 
men kann, und auch die 
Erfolge werden indivi- 
duell erlebt. 


DIE UNBEKANNTEN 


Das Erlernen des Systems 
ist auf minimale Notwen- 
digkeiten beschränkt, so 
bleibt dem Schüler mehr 
Raum für den eigentlichen 
Lerninhalt. 

Der Nachteil hieraus wird 
durch den hohen Auf- 
wand verursacht, die ho- 
hen Kosten, wodurch sich 
Coursewriter nicht durch- 
setzen konnte. 


24. CSL 

Control and Simulation 
Language. 

Spezielle Programmier- 
sprache zu Simulations- 
zwecken und Modellunter- 
suchungen (siehe auch 
SIMULA). 


25. DIPOL 
Anwenderspezifische, 
problemorientierte Echt- 
zeitsprache für die Auto- 
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matisierung von Stück- 
prozessen. 


26. DL 

Data Language. 
Abkürzung für verschie- 
dene Datenbanksprachen 
(zum Beispiel Query 
Language). 


27. Elan 

Extentable Language. 

Elan ist wie C (siehe dort) 
eine Systemimplementie- 
rungssprache. Das Betriebs- 
system Eumel ist zum Bei- 
spiel in Elan geschrieben. 
Elan ist kaum verbreitet. 


28. EOL 

Expression Oriented 
Language. 

EOL wurde um 1960 von 
dem polnischen Mathema- 
tiker Jan Lukasiewicz 
entwickelt. 

Aufsehen erregte sie durch 
die ungewöhnliche Nota- 
tion zur Formulierung 
arithmetischer Ausdrücke. 
Diese Notation wurde zu- 
nächst nach ihrem Erfin- 
der Lukasiewicz benannt. 
Aufgrund der schwierigen 
und ungewöhnlichen 
Schreibweise dieses Na- 
mens wurde diese Nota- 
tion in den USA umbe- 
nannt in PN (Polish 
Notation). 

Bei der PN werden immer 
zuerst die Operatoren, 
dann die zugehörigen Ope- 
randen geschrieben. Daher 
wird PN auch als Präfix- 
Schreibweise bezeichnet. 


Beispiel: 
5+4,-inPN: +54 


PN wird bei einigen Pro- 
grammiersprachen auch 
umgedreht angewendet, 
also zuerst die Operan- 
den und dann der oder 
die Operatoren. Diese 
Schreibweise bezeichnet 
man als RPN, also Reverse 
Polish Notation, bzw. 


- Postfix-Schreibweise. 


Beispiel: 

5+4,-inRPN: 54 + 
Bekannt wurde RPN 
durch die Taschenrech- 
ner von Hewlett Packard. 


Dipl.-Ing. FH 
Oliver RosenbaumO 


Fortsetzung im nächsten Heft 


Eee ur———— 


Geschwindigkeit 
ist keine Hexerei 


Wenn schon der Computer nicht schneller gemacht werden kann 
und auch Maschinensprache-Befehle böhmische Dörfer sind, muß eben das 
Programm beschleunigt werden. Mit dem Austrospeed+4 
ist dies kein Problem. 


Die bescheidene Geschwindigkeit 
von BASIC-Programmen ist manch- 
mal ärgerlich, besonders bei zeitkri- 
tischen Befehlsfolgen wie Berech- 
nungen oder Sortierungen. Das liegt 
einzig und allein daran, daß BASIC 
eine Interpretersprache ist. Jede 
BASIC-Zeile wird von einem Inter- 
preter auf Syntaxfehler und derglei- 
chen überprüft, umgesetzt und ab- 
gearbeitet. 

Dabei geht gegenüber der Maschinen- 
sprache eine Menge Zeit verloren. 
Bei Variablen muß der Interpreter 
im Variablenspeicher nach dem Na- 
men suchen, bevor der den Wert ver- 
arbeiten kann. Auch die Suche nach 
den entsprechenden Zeilennummern 
bei GOTO- oder GOSUB-Sprüngen, 
wobei er immer wieder bei Null an- 
fängt, benötigt einige Zeit. Da selbst 
Profi-Programme compiliert werden, 
sollte auch der Hobby-Programmie- 
rer zu diesem Hilfsmittel greifen. 
Ein Compiler beschreitet einen ande- 
ren Weg. Er compiliert das BASIC- 
Programm nach einem besonderen 
Code, der sehr maschinennah und 
dadurch um einiges schneller als das 
ursprüngliche BASIC-Programm ist. 
Die Nachteile des Interpreters fallen 
dadurch weg. Eine Überprüfung der 
Syntax findet nur noch einmal, beim 
Compilieren statt, wodurch die Ab- 
laufgeschwindigkeit enorm gestei- 
gert wird. 


TUNING FÜR DAS 3.5-BASIC 
Mancher Benutzer der 3.5-BASIC- 


Version (Plus4) wird schon neidisch 
auf andere Commodore-Besitzer ge- 
blickt haben, für deren Geräte es 
längst Compiler gibt. 

Bereits seit einiger Zeit auf dem 
Markt, allerdings nur in Österreich, 
ist die Version des bekannten Au- 
strocomp. Sie wirdin der BRD von 
keinem uns bekannten Händler an- 
geboten. 

Man darf beim Kauf von Austro- 
speed+4 nicht verwundert sein, 
wenn erin der Verpackung des 
Austrocomp 64 versteckt ist. Der 
grundlegende Unterschied zwischen 
diesen beiden Compilern besteht 


nur. in dem erweitertem Befehlsum- 
fang der Plus4-Version. Darauf wird 
in einem Beiblatt hingewiesen, da 
auch die Gebrauchsanweisung auf 
den 64er-Compier zugeschnitten ist. 
Neben Handbuch und Programm- 
diskette wird ein sogenannter 
Dongle mitgeliefert. Das ist ein 
Stecker, der als Kopierschutz dient 
und auf den Userport gesteckt wer- 
den muß. Damit ist der Compiler 
nur auf dem Plus4 zu betreiben, da 
der C16/116 keinen Uersport be- 
sitzt. 

Die Bedienung von Austrospeed+4 
erfolgt über ein übersichtliches Me- 
nü, mit dem die entsprechenden 
Floppy-Konfigurationen eingege- 
ben werden können. Zur Auswahl 
stehen die Möglichkeiten Single- 
floppy, Doppellaufwerk oder zwei 
Einzellaufwerke. Bei einer Single- 
floppy legt Austrocomp+4 das com- 
pilierte Programm wieder auf der- 
selben Diskette ab, auf der sich das 
Ursprungsprogramm befindet. Man 
muß daher genügend Platz freihal- 
ten, da außerdem ein Zeilennum- 
mer-File abgelegt wird, das die Feh- 
lersuche vereinfacht: 
Austrospeed+4 kann auch ganze 
Programmpakete übersetzen. Ein 
Paket besteht aus einem Menüpro- 
gramm und mehreren unabhängi- 
gen Unterprogrammen, die von ei- 
nem Menü aufgerufen werden. 
Austrospeed+4 compiliert die ein- 
zelnen Programme, versieht aber 
nur das Menüprogramm mit den 
zum ordnungsgemäßen Betrieb not- 
wendigen RUN-Time-Modul. Von 
den Teilprogrammen erzeugt Austro- 
speed+4 lediglich den P-Code, der 
wesentlich kürzer ist und somit 
schneller nachgeladen wird. 
Außerdem ermöglicht Austrospeed 
+4 die sogenannte Overlay-Technik, 
bei der nachgeladene Programme 
die Variablen aus vorhergehenden 
Programmen übernehmen. 
Austrospeed+4 ist ein sogenannter 
2-Pass-Compiler, er bearbeitet je- 
des BASIC-Programm in zwei 
Durchläufen: Im ersten werden alle 
Zeilennummern, auf die Sprungbe- 
fehle zeigen, markiert, übersetzt 
und mit den Sprungbefehlen gekop- 
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pelt. Dasselbe geschieht mit den 
Variablen. Im zweiten Durchlauf 
werden das RUN-Time-Modul, der 
P-Code und die Variablenlisten zu 
einem lauffähigen Programm zusam- 
mengefügt. Dadurch kann das er- 
zeugte Programm größer werden, 
falls es vorher weniger als etwa 56 
Blocks lang war. Alle Programme, 
die länger waren, werden nun et- 
was kürzer. 


DER COMPILER ALS 
DEBUGGER 


Da es recht mühsam ist, beim Über- 
setzen auftretende Fehler vom Bild- 
schirm abzuschreiben, verlangt 
Austrospeed zwingend nach einem 
Drucker. Im anderen Fall wird 
beim Auftreten eines Fehlers die 
Fehlermeldung DEVISE NOT 
PRESENT ausgegeben. Damit kann 
Austrospeed+4 auch hervorragend 
als Debugger eingesetzt werden, 
denn die meisten Fehler werden 
beim Compilieren festgestellt und 
angezeigt. 


DER DRUCKER IST EIN MUSS 


Ist die Übersetzung erfolgreich ver- 
laufen, zeigt Austrospeed+4 die 
Compilationsdauer und die Anzahl 
der Fehler an. Alle mit Austrospeed 
+4 übersetzten Programme sind 
auch ohne Compiler lauffähig und 
können, da sie eine BASIC-Zeile 
am Anfang haben, ohne Schwierig- 
keiten geladen und gesaved werden. 
Allerdings darf die BASIC-Zeile 
nicht nach eigenen Bedürfnissen ab- 
geändert werden, da sonst das Pro- 
gramm nicht mehr läuft. 


MEHR PLATZ AUF DEM STACK 


Eine Besonderheit von Austrospeed 
+4 ist die erweiterte Verschachte- 
lungstiefe bei GOSUB- und FOR- 
NEXT-Schleifen, wobei der gefürch- 
tete STACK-Überlauf fast verhin- 
dert wird. 

Alles in allem ist Austrospeed+4 
ein sehr empfehlenswerter Compi- 
ler für den Plus4-Anwender, der 
nicht auf andere Produkte auswei- 
chen kann. Eine Ausnahme ist zwar 
der Compiler von Markt & Technik. 
Er konnte aber nicht überzeugen. 
Bei der Überprüfung der Ausfüh- 
rungsgeschwindigkeit war Austro- 
speed+4 in fast allen Punkten zufrie- 
denstellend. Bei reinen Grafikpro- 
grammen müssen jedoch einige Ab- 
striche gemacht werden. 
Austrospeed+4 wurde ursprünglich 
in BASIC geschrieben und hat sich 
anschließend, wie viele Compiler, 
selbst übersetzt. bwD) 


———— tt ee ee ee ee ee nn nn 


MEGA-TOOL ist eine 
BASIC-Erweiterung für 
den Plus4 und den C16 
mit 64 KByte. Es erwei- 
tert das ohnehin umfang- 
reiche BASIC V3.5 um 
weitere 3] Befehle, die 
die Programmierung die- 
ses Computers sehr er- 
leichtern. 


OLD 

Holt ein versehentlich 
gelöschtes Programm wie- 
der zurück. OLD hilft 
manchmal auch, ein ver- 
stümmeltes Listing zu- 
rückzuholen. 


LLIST g,s [ ,zeilen] 
ana y Geräteadr. 
Gene Sekundäradr. 
zeilen.. wie bei LIST 
Gibt Listing am Drucker 
aus. 


MERGE “name’’,g 
Verkettet zwei BASIC- 
Programme, wobei die 
Zeilennummern des 
nachgeladenen Pro- 
gramms höher sein müs- 
sen als die des ersten. 


DMERGE ’'name’’ 
Wie MERGE, nur auf 
Diskette. 


BLOCK ’’name’’,g 

Lädt einen Speicherbe- 
reich, ähnlich wie 
LOAD“name“,g,1, aller- 
dings mit dem Vorteil, 
daß der Programmzähler 
nicht zurückgesetzt wird, 
das Programm also nicht 


wahre Bereicherung. 


wieder von vorne beginnt. 


BLOCK kann zum Bei- 
spiel zum Nachladen ei- 
nes Zeichensatzes ver- 
wendet werden. 


DBLOCK “name” 
Wie BLOCK, nur auf 
Diskette. 


SBLOCK "'name’',g,1, 
anfang,endet1 

anfang. .. Anfangsadr. 
ende.... Endadr. 
Speichert einen bestimm- 
ten Speicherbereich auf 
Kassette oder Diskette 
ab. Kann zum Beispiel 
zum Abspeichern von 
Grafikseiten verwendet 
werden: SBLOCK 
“sraphik‘““,8,1,3072, 
16384 


DVERIFY “name” 
Verifiziert auf Diskette. 


ID 
Initialisiert eine Diskette. 


FAST 

Schaltet den Bildschirm 
aus, wodurch der Com- 
puter um zirka 30 Pro- 
zent schneller arbeitet, 
da der TED-Chip nicht 
mehr auf das RAM zu- 
greifen muß. 


SLOW 
Schaltet den Bildschirm 
wieder ein. 


MULTI 0/1 

Steuert das Multicolor- 
Bit des TED-Chips: 
MULTI 1 schaltet den 
Multicolor-Modus ein, 
MULTI0 schaltet ihn 
wieder aus. 


REVERS0/1 

Steuert das Revers-Flag 
des TED-Chips. Ist die- 
ses Bit gesetzt, so er- 
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SERVICEE 


31 neue Befehle 


Mit einer richtigen Syntax ausgestattet, bietet 
Mega-Tool eine Reihe nützlicher Funktionen an. 
So gibt es einen OLD-Befehl, einen Plot-Befehl und 
eine Merge-Routine, sogar Windows und Sprites sind 
spielend zu handhaben. Mega-Tool ist für jeden, 

dessen Rechner 64 KByte aufweist, eine 


zeugt der TED keine re- 
versen Zeichen und man 
kann auf den gesamten 
Zeichenvorrat des Com- 
puters zugreifen (statt 
revers Kleinschrift). 


BIT adr,bit-#,0/1 
adr..... Speicheradr. 
bit-#... Stellung des 


Ermöglicht ein bitweises 
Poken. 

Zum Beispiel entspricht 
BIT65298,2,0 dem Be- 
fehl POKE65298,PEEK 
(65298)AND255-4 


TRANS 0/1 

TRANS 1 kopiert den 
ROM-Zeichensatz ins 
RAM und zwar ab der 
Speicheradresse $E800, 
wo er verändert werden 
kann. Alle TED-Register 
werden auf diesen Zei- 
chensatz umgestellt. Um 
zu verhindern, daß er von 
BASIC überschrieben wird, 
wird die Speichergrenze 
um ein KByte nach unten 
gesetzt. Dadurch werden 
alle Variablen gelöscht. 


SPRITE nummer,x,y,col 
nummer... Spritenummer 
(0-15) 
KV nen Koordinaten 
des Sprites 
(ee) PER Farbe des 
Sprites (Bild- 
schirmcode) 
Der SPRITE-Befehl ist ei- 
ner der mächtigsten Be- 
fehle dieser Erweiterung. 
Er dient zur Verwaltung 


von 16 verschiedenen 
Pseudosprites, allerdings 
nur in Koppelung mit ei- 
nem veränderten Zeichen- 
satz. 

Die Struktur der Sprites 
ist folgendermaßen: 
Jedes Sprite besteht aus 
2 mal 2 Zeichen. 

Sprite Nummer O besteht 
aus den Zeichen 64, 65, 
66 und 67, Sprite Num- 
mer 1 aus 68, 69, 70 und 
71 und so weiter, bis zu 
Sprite Nummer 15 aus 
den Zeichen 124, 125, 
126 und 127. 

Mit dem Zeichen 64 ist 
nicht das ASCII-Zeichen 
Nummer 64 (Klammer- 
affe) gemeint, sondern 
der Bildschirmcode Num- 
mer 64, also das Stern- 
chen mit SHIFT. Die voll- 
ständige Tabelle steht auf 
den Seiten 213 und 214 
im Handbuch. Da fast 
alle Zeichensatz-Program- 
me diesen Bildschirm- 
code verwenden (etwa 
der Graphic-Designer von 
Kingsoft), dürften sich 
damit kaum Probleme 
ergeben. 

Das erste Zeichen des 
Sprites befindet sich links 
oben, das zweite rechts 
oben, das dritte links un- 
ten und das vierte rechts 
unten. ; 

Wem ein Sprite aus vier 
Zeichen zu klein ist, 

muß mehrere Sprites zu 


einem zusammenfassen. 
Zur Anwendung des Be- 
fehls: X ist die Spalte, 

Y die Zeile, in welcher 
das Sprite erscheint. 

COL ist die Farbe, wo- 
bei Werte über 127 ein 
Blinken hervorrufen. 
COL kann man sich mit 
folgender Formel errech- 
nen: Farbe + Luminanz 

* 16. 

Mit dem SPRITE-Befehl 
können Sprites neu ge- 
setzt und bewegt wer- 
den. Allerdings sollte man 
es vermeiden, Sprites über- 
einander zu legen, da dies 
bei falscher Anwendung 
(Bewegen des darunter- 
liegenden Sprites) uner- 
wünschte Folgen haben 
könnte. 

Der Status eines Sprites 
wird mit der USR-Funk- 
tion abgefragt: Ist der 
Wert größer als 128, so 
ist das Sprite am Bild- 
schirm. Ist das sechste 
Bit gesetzt, so kollidier- 
te es mit dem Unter- 
grund: Es traf auf irgend 
ein anderes Zeichen als 
das Leerzeichen; andere 
Sprites gelten nicht als 
Hindergrund. Sollte das 
Sprite mit einem ande- 
ren kollidiert sein, so lie- 
fert USR(Spritenummer) 
AND 15 dessen Nummer. 


DEL nummer 
Löscht ein Sprite vom 
Bildschirm. 


PLOT x,y 
Setzt den Cursor an die 
Koordinaten x,y. 


WINDOW x1,y1,x2,y2 


x1,yl.. linke obere 
Ecke 
x2,y2.. rechte untere 
cke 


Definiert Fenster, 


SCREEN x TOy 

x.. Quellbildschirm 

y.. Zielbildschirm 

Der SCREEN-Befehl dient 

zum Verwalten der bei- 

den RAM-Bildschirme. 

Nummern: h 

O...sichtbarer Bildschirm 

l...RAM-Bildschirm ab 

ECOO 

2...RAM-Bildschirm ab 
$F400 

Mit SCREEN kann man 
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den Bildschirm x in den 
Bildschirm y kopieren. 
Als Anwendung wäre das 
Verwalten von Fenstern, 
wie beim Amiga, denkbar: 
Sichtbaren Bildschirm ins 
RAM kopieren, mit CHAR 
das Fenster bilden, zum 
Schließen des Fensters 
den Bildschirm wieder 
zurückkopieren. Ebenfalls 
möglich ist das Einblen- 
den von Informationen 
wie Anleitungen oder Hi- 
Score-Tabellen. 

Beim SCREEN-Befehl 
werden alle Bildschirmpa- 
rameter wie Cursorposi- 
tion, Revers-Flag, Hinter- 
grund- und Rahmenfar- 
be mitkopiert. 


HARDCOPY g,s 

9,5... wie bei LLIST 
Druckt den momenta- 
nen Bildschirm mit allen 
Grafikzeichen, sofern sie 
am Drucker vorhanden 
sind, aus. 


INIT 

Initialisiert Bildschirm, 
D und Sprungvekto- 

ren, ohne ein Programm 

zu unterbrechen. 


SWAP a$,b$ 
a$,b$... beliebige String- 
variablen 


Vertauscht zwei String- 
variablen ohne die Erzeu- 
gung von ‚„Stringmüll“. 


SLEEP dauer 
dauer... Zeit in Hun- 
dertstel Sekun- 


den 
SLEEP ersetzt die FOR- 
NEXT-Warteschleifen. 
Der Befehl wird durch 
den Raster-Interrupt ge- 
steuert und kann durch 
die RUN/STOP-Taste 
unterbrochen werden. 
Ein Tip: Mit SLEEP 1 vor 
dem SPRITE-Befehl 
wird, vor allem bei sehr 
schnellen Spielen, Bild- 
schirmflimmern unmög- 
lich gemacht, da nach 
einem SLEEP-Befehl im- 
mer ein neuer Bildschirm- 
aufbau stattfindet. 


Lesen Sie bitte weiter a.S.49 
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MEGA- TOOL. 


MEGA-TOOL==-==-=-==- === == === ========016 
(p) COMMODORE WELT TEAM 


(c) by Bernhard ODemer 


616/116/Flus4 


Das Programm ist mit dem Maschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des Pruefsummenprogrammes 
CHEGEMON einzugeben und auf Disket- 
te mit s"mega-tool",8,1881,17e8 ab- 
zuspeichern. Auf Kassette bitte mit 
s"manager",1,1881,17e8 abspeichern. 
Geladen und gestartet wird wie bei 
einem normalen Basic-Progamm. 


>1BBB BB Be 18 c3 987 9e 29 28 :<da> 
»>1B88 34 31 31 32 29 BB BB BR :<YFf> 
>1BiIR a9 18 85 2c 39 MB 8d BR :<3a> 
>1@18 18 a9 ec B5 38 a2 085 hd :<d4> 
>»18298 96 18 9d Bc 83 ca 19 fF7 :<c2> 
>ı1228 20 81 ff 28 Ba ff a9 7b :<S5e> 
>190390 Bd 2a 93 a9 16 8d 2b B3 :<e2> 
>1a38 20 7b 16 a9 FO Bd 15 ff :<a8> 
>1848 B8d 19 FF 28 Af ff Bd 85 :<e7> 
>1848 93 28 43 Af Ad Ad Af 44 :<Ab> 
>1Ba5B Af 52 a5 20 42 Ai 53 49 :<7c> 
>19858 A3 20 56 33 2e 35 20 2b :<35> 
>1068 28 Ad 45 47 41 2d 54 Af :<BB> 
>1068 Af Ac 28 56 31 38 2e 38 :<6Ff> 
>1970 Bd Ad 28 28 33 30 28 Ae :<61> 
>19878 45 57 20 43 Af Ad Ad 41 :<iIB> 
»1888 Ae 44 53 28 41 Ae AA 28 :<24> 
>1088 BR 28 e5 88 20 Af ff Bd :<2b> 
>1298 Bd 9e BB Ac Ba 88 9c 10 :<7b> 
>1898 bB 18 d2 i®B 85 da aß ei :<c5> 
>1Ba0 a9 19 28 087 Ba 98 BA 48 :<B2> 
>1838 Ac d6 89 a5 des Ac 6c B9 :<ea> 
>10b8 aa aß ei 84 22 aß 1A 84 :<d6> 
>18b8 23 aß BR ca 18 18 b1 22 :<94> 
>18c8 85 93 eG 22 dB 92 e6 23 :<dAd> 
>18c8 35 93 18 fF2 39 ed 18 Ac :<e9> 
>18dB8 88 8b 29 7f Ba a8 b9 87 :<97> 
>i1@d8 11 48 b9 86 11 48 Ac 73 :<23> 
>1Be®B BA Af Ac cA 42 Ac Af 43 :<a2> 
>18de8B cb 44 42 Ac Af A3 cb Ad :<Ff5> 
>18rQ 45 52 47 c5 44 Ad 45 52 :<B6> 
>10f8 47 c5 53 58 52 49 54 c5 :<bf> 
>1188 44 45 cc 46 41 53 dA 53 :<58> 
>1188 Ac Af d?7 Ad 55 Ac 54 c9 :<B9> 
>1118 52 45 56 45 52 d3 54 52 :<46> 
>1118 41 4e d3 53 Ac 45 45 d® :<B81> 
>11298 58 Ac Af dA 57 49 4e 44 :<15> 
>1128 Af d?7 53 57 41 da 42 49 :<26> 
>11390 d4 52 45 53 45 d4 48 41 :<aa> 
>1138 52 44 43 Af 508 d9 53 42 :<fi> 
>114B Ac Af A3 cb Ac Ac 49 53 :<e9> 


>1148 
>1158 
>1158 
>1168 
>1168 
»1178 
>1178 
-1388 
>1188 
>1198 
>1198 
>11a8 
>11a8B 
>11bR 
>11b8 
>11c® 
>11c8 
>11d8 
>11d8 
>11ed 
>11e8 
>11fB 
>11f8 
>1208 
>1208 
>1218 
>1218 
>1228 
>1228 
>1238 
>1238 
>1248 
>1248 
>»1258 
>1258 
>1269 
>1268 
>1278 
>1278 
»>1288 
>1288 
>1298 
>1298 
>12a8 
>1248 
>12b8 
>12b8 
>12c8 
>12c8 
>12d® 
>12d8 
>12e® 
>12eB 
>12 
>12f8 
>1388 
>1308 
>1318 


d9g 
4e 
54 
45 


52 


44 
11%) 


11 
11 
12 
13 
14 
15 
16 
17 


:<a9> 
ı<B2> 
:sef> 
:<le> 
ı<28> 


ıX7f> 
:<A8> 


:<4b> 
:<Ad> 
:<bd> 
ı<gf> 
:<4o> 
:<if> 
:<44> 
:<e1l> 
:<ef> 
:<c2> 
:<39> 
:<Ba> 
:<a6> 
ı<57> 
ı<44> 
ı<e5> 
ı<d2> 
ı<36> 
ı<gf> 
:<eß> 
ı<64> 
:<b7> 
:<47> 
ı<7c> 
ı<77> 
:<c2> 
:<dBe> 
:<5d> 
:<45> 
ı<21> 
:<bB> 
ı<af> 
ı<bB> 
ı<34> 
ı<6d> 
ı<23> 
:<64> 
:<A48> 
ı<a2> 
ı<72> 
:<508> 
:<d5> 
:<93> 
ı<29> 
:<cd> 
:<3b> 
:<7d> 
:<ab> 
ı<45> 
ı<b6> 
:<7Ja> 
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>1318 
> 1328 
>1328 
>1338 
>1338 
>1348 
»1348 
> 1358 
>1358 
>1360 
»-1368 
>1378 
>1378 
>1388 
>1388 
>1398 
>1398 
>13a0 
>1338 
>13b® 
>13b8 
>13cB 
>13c8 
>13d8 
>13d8 
>13e8 
>13e8 
>13f8 
>13f8 
>1408 
>1408 
>1418 
>1418 
>1428 
>1428 
>1439 
>1438 
>1448 
>1448 
>1458 
>1458 
>14609 
>1468 
>1478 
>1478 
>1488 
>1488 
>1498 
>1498 
>14a0 
>1438 
>14b2 
>14b8 
>14c8 
>14c8 
>14d® 
>14d8 
>14ed 


>14eB 
>1AfFB 
-14rf8 
>158®8 


>1588 


1518 
>1518 


>1528 
>1528 
>1538 
>1538 
>1548 
>1548 
>1558 
>1558 
>1568 


.>1568 
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>157®8 
>1578 
>1588 
>1588 
>1598 
>1598 
>15a8 
>1538 
>15b8 
>15b8 
>15c8 
>15c8 
>15d®8 
>15d8 
>15e® 
>15e8 
>15f8 
>1578 
>1680 
>1608 
>1618 
>1618 
>1628 
>1628 
>163®@ 
>1638 
>1649 
>1648 
>1658 
>1658 
>16608 
>1668 
>1678 
>1678 
>1688 
>1688 
>1698 
>1698 
>16a8 
>16a38 
>16bB 


:<97> 


MEGA-TOOL_ 


>16bB c6 eBß Ac cB 16 84 df a4 <5B> 
>16c# e® dd 05 84 de 4c e1 9d :<97> 
>16c8 a5 d6 c5 39 dB Of a5 d7 :<Ba> 
>16d8 c5 3a d@ 89 a5 d8 85 3b :<cf> 
>16d8 a5 d9 85 3c 68 a5 39 85 :<31> 
>16e® d6 85 14 a5 3a 85 d7 85 :<58> 
»16e8 15 28 3d Ba a5 Sf e9 ®1 :<77> 
>16fO 85 3b 85 dB a5 69 e9 WB :<5c> 
>16f8 85 3c 85 d9 68 28 Ac b6 :<55> 
>1700 d® c6 68 20 Ac b6 FA ch :<cd> 
»1708 68 a2 17 Ac 86 86 208 84 :<ec> 
>1718 9d Be f2 87 28 d8 9Yd Be :<5c> 
>1718 f3 07 28 d8 9d Be fA 87 :<a3> 
>1728 28 dB 9d Be f5 W7 60 20 :<52> 
>1728 7b 17 a4 61 fB le c9 28 :<h3> 
>1730 ba d7 39 BB a2 98 ad Bf :<Q2> 
>1738 28 ba ff a5 61 a6 62 a4 :<f3> 
>1740 63 20 bd ff 28 85 a? a9 :<3a> 
>1748 88 A4c c3 ff Ac Ic 99 a9 :<84> 
>17580 00 85 Ba Ac 6b aß a9 e6 :<94> 
>1758 20 21 cb 29 b5 cc 39 BR :<85> 
>1760 8d 78 W2 85 Ya aß 05 Ac :<B1> 
>1768 3f ca bd 92 dB 85 da 85 :<05> 
>1778 d2 bd 1b d8 85 di 29 Hb :<7®> 
>1778 85 d3 68 a5 16 48 28 2c :<62> 
>1788 93 28 1a 93 68 85 16 68 :<c3> 
>1788 88 ec f4 BB HD Ha MB 88 :<db> 
>17908 ua Ba Bu Hau an DO BA HB :<38> 
>1798 BB Ba um BO HD Hm Ha WU :<AB> 
>17a0 08 B0 Hu HB Ha HB BO 88 :<58> 
>17a8 08 BB HB HH DB MB Da 0m :<6B> 
>17bB 20 00 HR aD mn Ha BO HB :<78> 
>17b8 Bu Hu UB 20 Af ff Bd 28 :<a5> 
>17c8 43 29 28 42 59 28 42 45 :<3c> 
>17c8 52 4e 48 41 52 44 28 Af :<fb> 
>17d® 45 Ad 45 52 28 28 31 39 :<2b> 
>17d8 38 37 28 41 55 53 54 52 :<af> 
>17e® 49 41 29 @d 88 Ac 03 88 :<99> 


Fortsetzung von Seite 46 


WAITKEY a$ 
Wartet, bis die Taste a$ 
gedrückt wird und ent- 


REGISTER a,x,y,s 
Definiert die Prozessor- 
Register vor einem SYS- 


leert vorher und nachher Aufruf 
den Tastaturpuffer.. a = Akkumulator 
x = X-Register 
y = Y-Register 
BUFFER a$ s = Statusregister. 
Belegt den Tastaturpuf- 
fer mit dem String a$, wo- DISK a$ 


Sendet einen Befehl an 
die Diskettenstation 
a$ = Befehlsstring. 


REPEAT x / UNTIL 
cond / WHILE cond 
Dieser Befehl dient zur 


bei a$ nicht länger als 10 
Zeichen sein darf. 

Der BUFFER-Befehl 
kann vor allem zur Selbst- 
modifikation von Pro- 
grammen verwendet 
werden. 


Programmierung von kur- 
zen Schleifen. Er steht 
am Ende einer Zeile. 
Bei REPEAT x wird die- 

. se Zeile x-mal wiederholt, 
bei REPEAT UNTIL 
cond wird die Zeile wie- 


Speicherplan von 
MEGA-TOOL: 


$1001 — $100F 


1095 
Initialisierung 
$1096 — $10EO 
Behandlung des Tokens 
$10E1 — $1180 
Befehlswörter (Tokens) 
$1186 — $11C3 
Befehlsadressen 
$11C4— $1782 
Routinen der Befehle 
$1783 —- $17BA 
Arbeitsspeicher 

$17BB — $17E7 
USER-Routine 


Abkürzungen der 
Befehle: 


Die Abkürzungen der her- 
kömmlichen BASIC-Be- 
fehle können sich ändern: 
Die Abkürzung ‚‚scR, für 
„scratch‘“, bedeutet mit 
MEGA-TOOL ‚‚screen‘“. 
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derholt, bis die Bedin- 
gung cond erfüllt ist. Bei 
REPEAT WHILE cond 
wird die Zeile wiederholt, 
solange die Bedingung 
erfüllt ist. 


RESET 

Löst ein RESET aus. Im 
Direktmodus muß man 
vorher die Sicherheitsab- 
frage ARE YOU SURE? 
mit Y beantworten. 


USER 

Ruft die USER-Routine 
($17BB) auf. Dort kann 
zum Beispiel der Aufruf 
eines eigenen MS-Pro- 
grammes stehen. Nach 
dem Start der Erweite- 
rung befindet sich an die- 
ser Stelle die Copyright- 
Meldung. 


FUNKTIONSWEISE 


DES PROGRAMMS: 


Die Erweiterung liegt ab 
$1000 im Speicher. Nach 
dem Starten mit RUN 
wird der BASIC-Anfang 
auf $1800, das BASIC- 
Ende auf $ECOO gesetzt, 
um ein Überschreiben 

der Erweiterung, des 
Sprite-Speichers und der 
RAM-Bildschirme zu ver- 
hindern. 

Außerdem werden die 
Vektoren zur Handhabung 
des USER-Tokens ($030C 
bis $0311) auf eigene Rou- 
tinen gelegt. Dann werden 
der Bildschirm und der 
Speicher gelöscht, und 
MEGA-TOOL meldet 

sich mit der Einschalt- 
meldung. 

Durch die Verwendung 
des USER-Tokens werden 
auch die neuen Befehle 

in Tokens umgewandelt 
und sind daher nur zwei 
Byte lang. 

Als Arbeitsspeicher ver- 
wendet MEGA-TOOL den 


. Bereich $ECOO bis $FCFF 


sowie die Zeropage-Adres- 
sen $DO bis $D5, aller- 
dings nur während der 
Ausführung des Befehls. 
Der übrige Systemspei- 
cher bleibt unberührt, 
kann also für weitere Ma- 
schinensprache-Program- 
me verwendet werden. 
Die hochauflösende Gra- 
fik steht uneingeschränkt 
zur Verfügung. 


Grafix 
3D in 
Bewegung 


Mit Grafix können auf dem Plus4 und dem auf 
64 KByte erweiterten C16/116 bewegte 3-D-Grafiken 
erzeugt werden. Diese Grafiken sind nicht nur zum 
Ansehen gedacht, sondern können auch als interessan- 
te Vorspänne oder Zwischentitel in eigene 
Programme eingebunden werden. 


Aller guten Dinge sind drei, und so besteht Grafix aus 
drei Teilprogrammen. Das erste, GRAFIX.START, 
schaltet den Grafikmodus ein und lädt die zwei rest- 
lichen Teile nach. GRAFIX.MC ist der Maschinen- 
spracheteil, der für die schnellen Vektoroperationen 
zuständig ist. Das BASIC-Programm GRAFIX ent- 
hält die zur Dateneingabe und Datenkorrektur erfor- 
derlichen Routinen. Grafiken können editiert, gespei- 
chert, geladen und überarbeitet werden. 


DIE ARBEIT MIT DEM PROGRAMM 


Es lassen sich maximal 127 Punkte und 127 Linien 

_ definieren. Den einzelnen Koordinaten, Tiefe, Höhe 
und Breite, können ganzzahlige Werte zwischen —51] 
und +511 zugewiesen werden. Wenn Sie bei der Defi- 
nierung der Linien, die an einem Punkt gezogen wer- 
den sollen, zum nächsten Punkt übergehen wollen, 
drücken Sie bei der erneuten Abfrage einfach 
RETURN. 
Beim Löschen eines Punktes werden sämtliche Linien, 
die von oder zu diesem Punkt gezogen werden, eben- 
falls gelöscht. Außerdem verschieben sich die Punkt- 
nummern der nachfolgenden Punkte um jeweils Eins 
nach unten. Die Daten der Linien erfahren hierbei 
automatisch eine entsprechende Änderung, so daß 
dadurch keine Fehler entstehen. 


BEDIENUNG DER GRAFIK 


Während der 3-D-Berechnungen stehen Ihnen folgen- 

de Funktionen auf Tastendruck zur Verfügung: 

Zurück ins Menü. 

Bild einfrieren. 

Programm starten. 

Programm nach Unterbrechung fortsetzen. 

Der Bildschirm wird von nun an ständig gelöscht. 

Die Berechnungen werden dadurch schneller. 

Nachteilig macht sich aber ein Flackern bemerk- 

bar (L-Modus). 

= Die Bildschirmdarstellung erfolgt jetzt ohne Flak- 
kern, die Berechnungen dauern aber länger 
(T-Modus). 


nm N 


ran 


- 
I 


Drehbewegungen: 
Cursor rechts = Rechtsdrehung 
Cursor links = Linksdrehung 


Cursor oben 
Cursor unten 


Drehung nach oben 
Drehung nach unten 


ml 


Drehbewegungen mit doppelter Schrittweite: 

> = Rechtsdrehung + = Drehung nach oben 

< = Linksdrehung — = Drehung nach unten 
Mit den Tasten 1 bis 8 werden beide Winkel gleichzei- 
tig beeinflußt. 


Weitere Bewegungen: 

O = Drehwinkel auf Null 

G = Objekt näher heranholen 
K = Objekt weiter wegrücken 
N = Drehen und heranholen 
M= Drehen und wegrücken 


Neben Laden, Speichern, Ändern, Löschen und Hinzu- 
fügen von Daten bietet das Menü auch die Möglich- 
keit, Bewegungsabläufe vorzuprogrammieren. In die- 
sem Menü-Unterpunkt ist die Taste mit der entspre- 
chenden Bewegungsfunktion zu drücken und danach 
anzugeben, wie viele solcher Bewegungen, maximal 
255, das Objekt ausführen soll. 


Eingabebeispiel: 
Anzahl der Punkte? 5 


Punkt Tiefe Höhe Breite 
1 0) 60 0 
2 40 0 40 
3 —40 0 40 
4 —40 0 —40 
5 40 0) —40 

Linien von 

l zu 2 2zu3 

1 zu 3 2zu5 

1zu4 3zu4 

1zu5 4zu5 


BESONDERE HINWEISE 


Die neue Draw-Routine arbeitet teilweise ungenau, 
wodurch es zu Veränderungen im Farbspeicher kom- 
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men kann. Dieser Fehler tritt allerdings nur im L- 
Modus auf. 

Wenn ein Objekt sehr nahe an den Betrachter heran- 
gerückt wurde, wird, um Fehlberechnungen vorzu- 
beugen, die Abbildung des Punktes auf 160,100 ge- 
setzt. Das Programm ist mit einem vollständigen 
Clipp-Teil versehen, so daß auch sehr große Objekte 
dargestellt werden können. 


EINGABE UND ABSPEICHERN DES 
GRAFIX-PROGRAMMES 


Da die Datasette nur der Reihe nach zu lesen vermag, 


müssen Datasetten-Benutzer sich beim Abspeichern 
der Programmteile an eine gewisse Reihenfolge 


halten: 
1. GRAFIX.START 3. GRAFIX 
2. GRAFIX.MC 4. GRAFIX.CBM 


GRAFIX.START und GRAFIX sind reine BASIC- 
Programme, so daß hierbei keine Besonderheiten zu 
beachten sind. 

GRAFIX.MC und GRAFIX.CBM sind gemäß den im 
Programmvorspann vermerkten Anweisungen mit Hil- 
fe des Maschinenmonitors TEDMON abzusaven. Der 
Maschinenteil liegt bei $5750 bis $6E00, die Daten 
der Objekte bei $1000 bis $1800 im Speicher. 
GRAFIX.CBM ist ein Datenfile, das das Commodore- 
Emblem in 3-D enthält. Sie können nach dem Start 
von GRAFIX.START diese Grafik durch entsprechen- 
de Wahl einladen. GRAFIX verwendet im T-Modus 
noch den Bereich $8000 bis $9FFF als Pseudo-Grafik- 
speicher. 


Lesen Sie bitte weiter auf Seite 62 


18 rem grafix.start=============p4 <mo> 
28 rem (p) commodore welt team <ho> 
3a rem ================2=========== cng> 
48 rem (c) by frank koster <ge> 
58 rem <pd> 
68 rem <ah> 
78 rem basic v3.5 und m-code <jd> 
88 rem plus4 (c16/116 +64 kb) <fd> 
98 rem =========2=2=2====2=====22===== (jg> 
188 graphic1,1:graphic® <oa> 
118 x$=right$(lstr$(peek( 174)), 1) <fd> 
120 a$="grafix"”:r$=chr$( 13) <em> 
138 d$=chr$( 34) <op> 
148 b$=d$+ta$+".me"+d$+", "+x$+",1"+ 

r$ <oj> 
158 c$=d$+a$+d$+", "+x$+r$ <nn> 
168 key1,"10"+b$+"10"+c$+"rU”"+r$ <nf> 
178 poke2A35,8:5ys56364:end <df> 
180 rem ==========2=====2=2=2=2==2=202=== <on> 
198 rem dieses programm laedt <cc> 
2088 rem "GRAFIX.MC"” und "GRAFIX" <hj> 
2i0 rem nach und startet das <af> 
228 rem letztere. <pm> 
230 rem ============2=2============= (jc> 
248 rem programmende <nf> 
250 rem ============2=2========5=2==== (jf> 
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GRAFIX.MC====-=-=-=-=--=--=-2=-=-222=22==epf 
{p) COMMODORE WELT TEAM 


{c} by Frank Koster 
Plus4 (C16/116 + 64 KB) 


Das Programm ist mit dem Maschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des Pruefsummenprogrammes 
CHECKMON einzugeben und auf Disket- 
te mit s"grafix.mc",8,5758,6e08 ab- 
zuspeichern, auf Kassette mit 
s"egrafix.mc", 1,5758,6e88. 


>5758 a5 dA c5S da 98 49 d® 2f :<53> 
>5758 a5 d3 c5 d9 98 41 dB 27 :<e4> 
>5768 29 da 58 38 a5 dA e5 d6 :<be> 
>5768 b@® 18 49 ff 69 92 aa ea :<4a> 
>577B8 ea ca dd B1 68 28 ea 59 :<11> 
>5778 da f7 aa eß ea ea ca dA :<45> 
>5780 81 69 28 Aa 59 da F7 a5 :<B4> 
>5788 d® a4 d6 85 d6& 84 dA a5 :<31> 
>5798 d3 a4 d9 85 d9 84 d3 a5 :<6Ff> 
>5798 d4 a4 da 85 da 84 dA 28 :<6a> 
>57aR da 58 38 a5 d9 e5S d3 85 :<ce> 
>59a8 d3 85 dc a5 da e5S dA 85 :<33> 
>57b8 dA 85 dd 38 35 dA e5S d6 :<35> 
>57bB 98 1a d®ß 21 aß BR e6 dc :<46> 
>57cB dß 82 e6 dd e6 dd c6 dc :<c4> 
>57c8 d@ 905 c6 dd dA B1 68 28 :<dB> 
>57d® bc 59 dB f2 49 ff a8 cB :<78> 
>57d8 84 dB Ac Sc 58 85 dß e6 :<b5> 
>57eß dA e6 dc e6 d3 dA 92 e6 :<ed> 
>57eB dA e6 dd 29 68 Sa aß 98 :<65> 
»>57f0 a5 d6 85 eß a5 d? 85 el :<62> 
>57f8 aa a5 dB 85 e2 8a 29 Bf :<ed> 
>5808 85 el Ba 46 e2 6a 46 e2 :<cIi> 
>5808 65 46 e2 6a 46 e2 68 FR :<6d> 
>5818 89 aa ca fß 85 28 Aa 59 :<9B> 
>5818 dA FB c6 dc dA 85 c6 dd :<3c> 
>5828 dA Bi 68 18 a5 eß 65 d6 :<33> 
>5828 8BS e®Bß 35 e1 65 d?7 85 ei <Ba> 
>5838 aa a5 e2 65 dß8 85 e?2 8a :<2a> 
»5838 29 Of 85 el Ba 46 e2 6a :<38B> 
>5848 46 e2 65 46 e2 6a 46 e2 :<84> 
>5848 6a dd 985 28 bc 59 dB ca :<c7> 
>5858 aa 28 7F 59. ca f@ c3 28 :<c3> 
>5858 4a 59 dB FB e6 d®ß e6 dc :<47> 
>5868 e6 d3 dA 932 e6 d4 e6 dd :<d5> 
»>5868 28 68 5a ad BB a5 d6 85 :<5a> 
>5879 e®ß 35 d? 85 el aa a5 dB :<43> 
>5878 85 e2 Ba 29 Of 85 el Ba :<9Yb> 
»>5888 A6 e2 6a 46 e2 6a 46 e2 :<B4> 
>5888 6a 46 e2 6a fPR 989 aa ca :<ec> 
>58980 FR 85 28 ea 59 dA FB c6 :<b3> 
>5898 dc d®ß 85 c6 dd dB B1 60 :<B85> 
>5BaBß 18 a5 eB 65 d6 85 eBß a5 :<TF7e> 
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>58a8 
>58b8 
>58b8 
>5Bc8 
>58c8 
>58d8 
>58d8 
>58ed 
>58e8 
»58r0 
>5878 
>5908 
>5998 
>5918 
>5918 
>5928 
>5928 
>593®@ 
>5938 
>5940 
»5948 
>5958 
>5958 
>5968 
>5968 
>5978 
>5978 
>5988 
>5988 
>5998 
>5998 
>5938 
>59a38 
>59bB 
>59b8 
>59c8 
>59c8 
>59d8 
>59d48 
>59eB 
>59e8 
>59f8 
>59f8 
>5308 
>5a08 
>5318 
>5318 
>5a28 
>5a28 
>5339 
>5a38 
>5a48 
>5a48 
>5a58 
>5358 
>5a68 
>5368 
>5a78 


A 
je}] 
[67] 
V 


>5a78 
>5388 
>5a88 
>5a98 
»5398 
>5aad 
>S53a8 
>5ab® 
>5ab8B 
>5ac® 
>5ac8 
>5ad® 
>5ad8B 
>5aeB 
>S5ae8 
>5afd 
>5af8 
>5ba0 
>5b88 
>5b18 
>5b18 
>5b28 
>5b28 
>5b38 
>5b38 
>5b48 
>5b48 
>5b58 
>5b58B 
>5b68 
>5b68 
>5b7® 
>5b78 
>5b88 
>5b88 
>5b98 
>5b98 
>5baB 
>5ba8 
>5bb2 
>Sbb8 
»5bc# 
>5bc8 
>5bd8 
>S5bd8 
>S5beß 
>S5beB 
>5bfB 
>5bf8 
>5c08 
>5cB8 
>5c1R 
>5c18 
>5c28 
>5c28 
>5c38 
>5c38 
>5c40 
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26 


99 


Va :<3a> 
d3 :<e5> 
09 :<57> 
f8 :<f7> 
88 :<d4> 
Ba :<99> 
d4 :<6e> 
d2 :<f5> 
d2 :<59> 
d7 :<6a> 
88 :<fb> 
3d :<d8> 
85 :<ci> 
dS :<ac> 
d2 :<a8> 
a5 :<B1> 
65 :<d5> 
ea :<e7> 
dß :<34> 
ff :<@f> 
29 :<95> 
d8 :<6a> 
d8 :<23> 
a8 :<bd> 
08 :<cb> 
ff :<54> 
3e :<ie> 
88 :<b2> 
uf :<22> 
85 :<dd> 
69 :<41> 
f7 :<e7> 
bA4 :<a?> 
85 :<49> 
c9 :<54> 
a8 :<Q5> 
60 :<d?> 
89 :<fb> 
a5 :<96> 
aß :<bb> 
68 :<c8> 
85 :<äd> 
a5 :<62> 
69 :<7c> 
f7 :<9d> 
ad :<9b> 
b9 :<97> 
e5S :<cf> 
85 :<B4> 
18 :<b8> 
8c :<ila> 
8d :<a9> 
e6 :<2b> 
c6 :<?7B> 
ad :<a?7> 
d2 :<58> 
17 :<a6> 
07 :<43> 


m 
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>5c48 
>5c5® 
>5c58 
>5c68 
>5c68 
>5c78 
>5c78 
>5c88 
>5c88 
>5c98 
>5c98 
>5caB 
>5ca8B 
>5cb# 
>5cb8B 
>5cc# 
>5cc8 
>5cd® 
>5cd8 
>5ced 
>Sce8 
>5cf® 
>5cf8 
>5d98 
>5d88 
>5d1® 
>5d18 
>5d28 
>5d28 
>5d38 
>5d38 
>5d49 
>5d48 
>5d5® 
>5d58 
>5d62 
>5d68 
>5d78 
>5d478 
>5d8® 
>5d88 
>5d98 
>5d98 
>5da® 
>5daB 
>5db& 
>5db8 
>5dc® 
>5dcB 
>5dd® 
>5dd8 
>5de® 
>S5de8 
>5dfB 
>5dfB 
>5eB® 
>5e88B 
>5e18 


a Me en u N na ne et HE = Erin Fun ah Tank nn mehr ln ie 


>5e18 
>5e28 
>5e28 
>5e38 
>5e38 
>5e4A48 
>5e48 
>5e58 
>5e58 
>5e608 
>5e68 
>5e78 
>5e78 
>5e88 
>5e88 
>5e98 
>5e98 
>5eaß 
>5eaB 
>5ebB 
»SebB 
>5ecd 
>S5ecB 
>5edd 
>5ed8 
>S5ee®d 
>5ee8 
>S5efß 
>SefBß 
»5rf88 
>5f08B 
>5f10 
>5f1i18 
>5f208 
>5f28 
>5r38 
>5f38 
>5f48 
>5f48 
>5f580 
>5rf58 
>5f68 
>5rf68 
>5rf78 
>5f78 
>5f88 
>5f88 
>5f98 
>5f98 
>5faß 
>5fa8 
>5fbB 
>SfbB 
>5fc® 
>5fc8 
>5fFd® 
>5fd8B 
>5fe® 
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a: Ge 

8d :<49> 
18 :<11> 
8c :<3Q> 
a5 :<ac> 
8d :<93> 
ff :<1d> 
89 :<75> 
87 :<65> 
Ba :<@d> 
88 :<?b> 
98 :<98> 
86 :<16> 
8b :<ec> 
a4 :<4e> 
a4 :<7e> 
da :<ad> 
an :<72> 
aa :<gFf> 
46 :<ad> 
d® :<ei> 
8c :<c4> 
28 :<eB> 
a5 :<B8> 
26 :<ic> 
8d :<ba> 
8d :<Bd> 
02 :<b4> 
89 :<@Ad> 
38 :<b7> 
8d :<19> 
ff :<38> 
a1 :<ib> 
28 :<76> 
00 :<bd> 
08 :<af> 
8d :<®1> 
03 :<b8> 
A4c :<AB> 
Bd :<45> 
89 :<2d> 
8c :<®6> 
87 :<B4> 
29 :<a6> 
85 :<c?7> 
06 :<eb> 
Bc :<bB> 
8d :<2f> 
87 :<e7> 
65 :<57> 
85 :<74> 
18 :<?78> 
Bc :<94> 
86 :<B4> 
a5 :<d8> 
65 :<4a> 
Ba :<3c> 
86 :<52> 
Bd :<e4> 
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>5fe8d 
>S5FrfBQ 
>SffB 
>6298 
>6908 
>6B18 
>6B18 
>60282 
>6828 
>6838 
>6838 
>6048 
>6948 
>6858 
>6858 
>6069 
>6068 
>68708 
>69078 
>69858 
>6AB8B 
>6898 
>6898 
>60da8 
>60a8B 
>6Bb8 
>60b8 
>60c8 
>60c8 
>68d49 
>62d8 
>60eR 
>60e8 
>6BF8 
>68r8 
>61088 
>6198 
>6118 
>6118 
>6128 
>6128 
>6138 
>6138 
>61480 
>6148 
>61508 
>6158 
>616®8 
>6168 
>6170 
>6178 
>6188 
>61858 
>61998 
>6198 
>61a0 
>6138 
>61b@ 
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>6388 
>6398 
>6398 
>63 
>6388B 
>63b2 
>63b8 
>63c#9 
>63c8 
>63d® 
>63d8 
>63e®d 
>63e8 
>63f® 
>63f8 
>6489 
>6408 
>6418 
>6418 
>6420® 
>6428 
>643®8 
>6438 
>6448 
>6448 
>6459 
>6458 
>6469 
>6468 
>6470 
>6478 
>6488 
>6488 
>6499 
>6498 
>64a0 
>64a8B 
>64A4b® 
>64b8 
>64cd 
>64c8 
>64d8 
>64dB 
>64e® 
>64eB8 
>64f0 
>64f8 
>6589 
>6598 
>6519 
>6518 
>6520 
>6528 
>6538 
>6538 
>65489 
>6548 
>6558 


A 
[0%] 
NS 
v 


>6558 


>656B 
>6568 
>6578 
>6578 
>6588 
>6588 
>6598 
>6598 
>65a8 
>65a8 
>65b® 
>65b8 
>65cB 
>65c8 
>65d2 
>65d8 
>65eB 
>65e8 
»>65Ff8 
>65f8 
>6688 
>6688 
>6618 
>6618 
>6628 
>6628 
>6639 
>6638 
>6648 
>6648 
>6658 
>6658 
>6668 
>6668 
>6678 
>6678 
>6680 
>6688 
>6698 
>6698 
>6630 
>66838 
>66hb® 
»66b8 
>66c9 
>66c8 
>66J4UB 
>66d8 
>66eB 
>66e8 
>66r8 
>66f8 
>6798 
>6798 
>6718 
>6718 
>6728 
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>6728 
>6738 
>6738 
>6749 
>6748 
>6758 
>6758 
>6768 
>6768 
>6778 
>6778 
>6788 
>6788 
>6798 
>6798 
>67a0 
>67u8 
>67b8 
>67bB 
>67c# 
>67c8 
>67d® 
>67d8 
>67e® 
>67e8 
>67Ff8 
>67F8 
>6889 
>6898 
>6B1B 
>6818 
>6829 
>6828 
>6838 
>6838 
>68408 
>6848 
>6859 
>6858 
>686® 
>6868 
>6878 
>6878 
>6888 
>6888 
>6892 
>6898B 
>68a0 
>6838 
>68hb@ 
>65b8 
>68cH 
>68cB 
>68d® 
>68d8 
>68e® 
>65eB 
»658f08 


18 
a5 
35 


59 


ra 


ra 


ad 


0a 


a5 
d6 


8d 
8d 
41 


A 
En 
W 
v 
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>6acB 
>6add 
>6ad8 
>6aed 
>6aeB 
>6af® 
>6af8 
>6bM9 
>6b48 
>6b18 
>6b18 
>6b2B 
>6b28 
>6b38 
>6b38 
>6b48 
>6b48 
>6b5B 
>6b5B 
>6b68 
>6h68 
>6b78 
>6b78 
>6b88 
>6b88 
>6b98 
>6b98 
>6baQ 
>6baB 
>6bbB 
>6bb8 
>6bc® 
>6bc8 
>6bdBd 
>6bd8 
>6bed 
>6be8 
>6bf® 
>6bfB 
>6c088 
>6cM8 
>6c1® 
>6c18 
>6c28 
>6c28 
>6c30 
>6c38 
>6c48 
>6c48 
>6c58 
>6c58 
>6c68 
>6c68 
>6c78 
>6c78 
>6c88 
>6c88 
>6c98 


Ci16/P4 
Hotline: 
Mittwochs 15-19 Uhr 
Tel.: O89/1298013 


GRAFIX-BEWEGUNG IN 3D 


GRAFIX S=S==2=2=2=2=2===S=S2<ocmmmmmmemmPf 
(p) COMMODORE WELT TEAM 


(c) by Frank Koster 


PLUS4 (C16/116 + 64 KB) 


Programmkopf und Programmende 
sind aus Platzgruenden wegzulas- 
sen. 


188 color®,1:color1,2:color4,1:gos 

ub 1399 

118 graphic1,1:graphicß, 1:print"da 

ten laden j/n":getkeyt$:ift$="j"th 

en748 

128 gosub1168 

138 gosub97@:input"anzahl der punk 

te,die sie definieren wollen"”;n:po 

ke4896,n 

148 fort=Bton-1:graphicd, 1:print"”k 

oordinaten von punkt ";t+1:input"t 

iefe";1 

158 input"hoehe";h:input"breite";b 
ıx=-l:a=g:gosub758:x=-h:a=e:gosub? 

58 

168 x=b:a=i:gosub758:next:h>=d 

178 fort=1ton:graphicd, 1:3$="" 

188 print”zu welchen anderen punkt 

en sollen von punkt";t;"linien gez 

ogen werden" 

198 printt;"->":poke292,peek( 282) + 

4:poke285,peek( 285) -1:input"” ";a$: 
ifa$=""then218 

288 pokepth,t:pokec+th, val( a$) :h=h+ 
2:3$="":goto19® 

218 next:pokep+h,B:pokec+h,B:gosub 
998 

228 graphic, 1:print"sind die date 
n korrekt oder sollen aende" 

238 print"-rungen vorgenommen werd 

en j/n":getkeyt$:ift$="n"then53® 

248 gosub1168 

258 print"bei den punkten oder bei 
den linien p/1":getkeyt$:ift$="1" 
then488 

268 graphic, 1:print"koordinaten v 
eraendern/punkt loeschen/neuer pun 
kt v/1/n” 

278 getkeyt$:ift$="l"then388 

288 ift$="n"then368 

298 graphicß, 1:input”welcher punkt 
";t:t=t-1:a=g:g0sub770:1=-x 

308 a=e:gosub77@:h=-x:a=i:gosub77® 
:b=x 

318 print"älte werte(ti,ho,br)";l, 
h,b 

328 input"neue werte(ti,ho,br)";l1, 


<dd> 


<dn> 
<l1k> 


<fg> 


<kl> 


<ı1f> 
<cf> 
<mi> 


<hf> 


<aj? 
<fj> 
<ga> 
<pe> 
<mb> 
<mj> 


<mb> 


<mg> 
<kh> 
<kh> 
<1j> 
<kb> 


<eg> 
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h,b:x=-l:a=qg:gosub758 

330 x=-h:a=se:gosub750:x=b:a=i:gosu 

b758 

348 print"weitere punkte korrigier 

en j/n" 

358 getkeyt$:ift$="j"then268:else2 

28 

368 t=peek( 4896) +1:print"der neue 
punkt hat die nummer ";t:poke4896, 
t:t=t-1 

378 input"tiefe";l:input”hoehe";h: 

input"breite";b:x=-1l:a=q:gosub75®: 

goto338 

388 graphic, 1:input”welcher punkt 
soll geloescht werden" ;t:n=peek(4 

896) 

398 gosub?798:h=9:gosub839:h=9:gosu 

b1128:g0t0348 

488 graphic, 1:print"linien loesch 

en/neue linie/a.oder endpunkt vera 

endern 1/n/v"” 

418 getkeyt$:ift$="1"then47@:elsei 

ft$="vV"then498 

428 graphic®, 1:print"welche linie 
soll hinzugefuegt werden" 

438 input"anfangspunkt";x:input”en 

dpunkt";y:h=® 

4480 ifpeek[lp+h)<>Bthen h=h+2:goto4 

48 

458 pokep+th,x:pokec+th,y:pokep+2+h, 

8:pokec+t2+h,8 

468 print"weitere linien korrigier 

en j/n":getkeyt$:ift$="j"then48®:e 

lse228 

478 input”anfangspunkt der zu loes 

chenden linie”;x:input"endpunkt";y 
:h=B 

A808 gosub878:g0t0468 

498 graphicß, 1:print"”welche linie 

soll veraendert werden: ” 

588 input"alter anfangspunkt";x:in 

put”alter endpunkt";y 

518 input"neuer anfangspunkt";1l:in 

put"neuer endpunkt”;b 

528 h=B:gosub94B: got0468 

530 ifpeek( 19816) =-2andpeek( 1828) =11 

then558 

548 fort=8t098:poke1@15+t,int( sin( 

t*#/ 180) #*128+.5) :next 

558 color@,1:color1,2:graphic1,1:p 

oke1999, 1:poke1536, 1:5ys24575 

568 graphicd, 1:fort=1319t01328:pok 

et,@@:next:gosub1168:gosub1398:gra 

phic®ß, 1 

57@ print"verzeichnis der daten j/ 

n":getkeyt$:ift$="j"thengosub998 

588 gosub1168:print"daten aendern 

J/n":getkeyt$:ift$="j"then25® 


<mo> 


<bb> 


<jb> 


<on?> 


<nb> 
<ip> 
<ih> 
<mb> 
<1f> 
<nd> 


<bd> 


<ei> 


<hf> 


<lo> 


<dm> 


<nn> 
<pf> 


<eb> 
<pa> 


<1k> 


<ml> 
<fh> 


<fb> 
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598 gosub1168:print"daten abspeich 
ern j/n":getkeyt$:ift$="j"then67@ 


680 gosub116B:print"zurueck zur gr 


afik j/n":getkeyt$:ift$="j"then538 

612 gosub116ß:print"neue daten lad 
en j/n":getkeyt$:ift$="j"then?48 
628 print" bewegungsablaeufe def. 
j/n":getkeyt$:ift$="j"thengosub117 
8:g0t0648 

638 gosub1168:print" daten des be 

weg.ablaufs j/n":getkeyt$:ift$="j" 
thengosub 1238 

649 gosub1168:print" beweg.ablauf 
aendern":getkeyt$:ift$="j"then 13 
18 

658 gasub1168:print"programm neu s 
tarten j/n":getkeyt$:ift$="j"then 
run 

668 gosub1168:print"3-d programm b 
eenden j/n":getkeyt$:ift$="j"then 
new:ielse 578 

678 graphicß, 1:print"kassette/disk 

ette k/d":gosub116R:getkeyt$ 

680 ift$="d"thenpoke288,8:elsepoke 

288,1:print"nach spulen taste drue 

cken":getkeyt$ 

698 gosub1168:5ys23384 :getkeyt$:gr 
aphic®, 1:g0t0548 

788 graphic, 1:print"kassette/disk 
ette k/d":fort=@0t035:next:getkeyt$ 

718 ift$="d"thenpoke288,8:g0t0730: 
elsepoke288, 1 

728 print" sie koennen jetzt spule 
n--danach taste druecken"”:fort=®t 
o3®:next:getkeyt$ 

7308 fort=8to5®%:next:sys28126:graph 
ic®, 1:g0t0548 

748 gosub97d:goto79R 

758 ifx<@thenx=-x+32768 

768 hb=int( x/256) :1b=x-hb*256:poke 
a+2*t,1b:pokea+1+2*t,hh:return 

770 1b=peek( at2*t) :hb=peek( ati+2*t 

) :x=hb*256+1b:ifx>32767thenx=-( x-3 

2768) 

788 return 

798 forl=tton:pokeq-2+2*1,peek(g+2 

#1) :pokeq-1+2#1, peek( q+2*1+1) 

808 pokee-2+2#]1,peek(e+2*#1) :pokee- 
1+2#] ,peek(e+2*#1+1) 

818 pokei-2+2*1,peek(i+2*]1) :pokei- 
1+2*1]1,peek( i+2*1+1) :next:poke4096, 
n-1 

828 return 

838 p1i=peek(p+h) :p2=peek(c+h) :ifp1 

=t or p2=tthenb=h+2:g0t0858 

848 ifpi=@thenreturn:elseh=h+2:got 

oB38 

858 p1i=peek( p+b) :p2=peek( c+b) :poke 


<ei> 
<pa> 


<dl> 


<gd> 


<lg> 


<mi> 


<bb> 
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p-2+b,pl:pokec-2+b,p2 

868 ifp1=Bthenh=h+B:goto83ß:elseb= 

b+2:g0t0858 

878 pi=peek(pr+h) :p2=peek( c+h) :ifpi 

=ßthen return 

888 ifpi<>xthen928 

898 ifp2<>ythenh=h+2:g0t0878 

988 pi=peek( pt2+h) :p2=peek( c+2+h): 

pokep+h,pil:pokec+th,p2:ifpi=@then r 

eturn 

918 h=h+t2:g0t0o988 

928 ifpi<>ythenh=h+2:g0t087® 

938 ifp2<>xthenh=h+2:g0t087@:else9 

1717) 

948 pi=peek(p+h) :p2=peek( c+h) :ifp1 

=Bthenreturn 

958 iflpi=x and p2=y) or (p2=x and 
pi=y)then pokep+h,1:pokec+th,b:ret 

urn 

968 h=h+2:g0t0949 

978 graphic, 1:input"”name des obje 

kts";a$:h=1len{ a$) :fort=1toh 

988 poke1630+t,asclmid$(a$,t,1)):n 

ext:poke1638,h:return 

998 print"daten der punkte oder de 

r linien":getkeyt$:ift$="1"then w= 

8:g0t01078 

1888 w=1 

1818 graphic®, 1:print"” daten alle 

r punkte" :n=peek( 4896) :t=® 

1828 print:print” punkt 
hoehe breite" 

10838 fort=Bton-1:y=2*t:a=qg:gosub77 

8:1=-x 

1848 a=e:gasub778:h=-x:a=i:gosub77 

B:b=x:print 

1858 printt+1,1,h,b:poke285,peek(2 

85) -1:poke281,peek( 281) -1 

1868 getkeyt$:next:gosub116@:graph 

ic, 1:ifw=dthenreturn 

1078 graphicd, 1:print"” daten aller 
linien":h=® 

1888 printchr$( 17)" 

CCCECC> zu" 

1898 pi=peek( p+h) :p2=peek(c+h) :h=h 

+2:ifp1=B®then111® 

1188 poke289,6:poke292,6:printp1;" 
"‚p2:getkeyt$:goto1898 

1118 ifw=ithenreturn:else1918 

1128 pi=peek( p+h) :p2=peek( c+h) :ifp 

i=dthenreturn 

1138 ifpi>tthenpokepth,p1-1 

1148 ifp2>tthenpokecth, p2-1 

1158 h=h+2:g0t01128 

1168 fort=8to38:next:return 

1178 graphic, 1:h=®:print” bewegun 

gen def." 

1188 print" ";h+1;".schritt 


tiefe 


vontCtttctct 


welc 
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he taste?(t.druecken) ":gosub116® 
1198 lb=peek( 198) :iflb=64then 1198: 
else iflb=1thenpoke5465+h, 255:goto 
1238 

1288 ifpeek( 198)=1bthen 1288:else 
fort=8t09:poke1319+t ,@:next 

1218 iflb=21lorlb=17thenprint" unz 
ulaessig!!!":goto1188. 

1228 input” fuer wiev. berechn.";h 
b:poke5465+h,1b:poke5665+h,hb:h=h+ 
1:g0t01188 

1238 graphicd, 1:print"” daten der b 
eweg.ablaeufe":h=® 

1248 poke298,peek( 5465+h) :ifpeek( 2 
88) =255then return 

1258 getkeyt$:sys2565®:1b=peek( 208 
) 

1268 iflb=128 thenprinth+1;"” cu 
rsor rechts ",‚peek( 5665+h) :h=h+1:g 
oto1248 

1278 iflb=129 thenprinth+1;" cu 
rsor links ",peek(5665+h) :h=h+1:g 
oto124B 

1288 iflb=131 thenprinth+1;"” cu 
rsor unten ",peek(5665+h) :h=h+1:g 
oto1248 

1298 iflb=138 thenprinth+1;"” cu 
rsor oben ",peek( 5665+h) :h=h+1:g 
0ot01248 

1388 printh+1;" "»chr$(1b) ‚peek 
(5665+h) :h=h+1:g0t01248 

1318 graphic®,1:print"” beweg.ablae 
ufe aendern":h=8:gosub 1238 

1328 print" der wievielte progr.sc 
hritt soll":print" geaendert werd 
en" 

1338 inputh:print" neuer schritt": 
fort=1319t0}7328:poket,@:next:a=pee 
k(5464+h) 

1348 gosub1169:1b=peek( 198) :iflb=6 
4then1348 

1358 gosub116@:ifpeek( 198) =1bthen! 
358:elsefort=1319t01328:poket,@:ne 
xt 

1368 input” anzahl der berechnunge 
n";hb:paoke5464+h, 1b:poke5664+h, hb 
1378 ifa=255thenpoke5465+h,, 255 
1388 print” noch mehr aendern j/n" 
:getkeyt$:ift$="j"then 1318:else 5 
78 

1398 q=4897:e=4353:1i=4689:p=4865:c 
=4866: return 


<a0> 


<gg> 
<fe> 


<fm> 


<lp> 
<co> 
<hj> 


<fp> 


<nd> 


<pj> 


<op> 


<lc> 
<bj> 


<hk> 


<eb> 


<cg? 


<ii> 


<ce> 
<gi> 
<dh> 
<cd> 


<mn> 


(p) COMMODORE WELT TEAM 


{c} by Frank Koster 


Plus4 (C16/116 + 64 KB) 


Das Programm ist mit dem Maschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des Pruefsummenprogrammes 
CHECKMON einzugeben und auf Disket- 
te mit s"grafix.cbm",8, 1998, 18008 
abzuspeichern, auf Kassette mit 
s"grafix.cbm", 1,1999, 1808. 


>ıBan 38 24 88 24 80 BB Ba 28 :<c?> 
>ıu08 Da 78 mu 7a mn 28 um an :<B1> 
>1B10 BB 24 88 2A BU Da ma 22 :<bB> 
>1B18 BB Am BB Au DD 22 BR BR :<Q7> 
>ıB828 BB 24 80 24 8A DM BB 28 :<d7> 
>1028 Du 78 DB 78 BR 28 DOM BB :<ci> 
>ıua38 BB 24 80 24 Bu Ha HB 22 :<7B> 
>1038 Bm au BD Au BD 22 BB DO :<A7> 
>1BA40 DB 24 88 84 80 5c 88 24 :<68> 
>1B48 88 24 88 84 88 5c 88 24 :<FfB> 
»>105B 80 24 88 5c 88 84 80 24 :<24> 
>1858 88 24 88 5c 88 84 88 24 :<14> 
>106n 88 FF BB FF Da FF Da FF :<a6> 
>1068 Ba FF BB FF BB FF aa FF :<36> 
>1078 un Fr BB FF Da ff Da FF :<46> 


>10878 gaa ff au ff Ba FF 08 FF :<d5> 
>ın8n BB Fr DB FF BB Fr aB Fr 
>1088 88 ff BB FF aa ff BO ff :<76> 


>1098 Ba Fr Hua Fr BO Fr 900 FF :<B6> 
>1898 BB FF BB FF BB FF 08 FF :<96> 
>1BaQ0 Bu Fr BB FF Ba FF OB ff :<a6> 
>10a8 BB ff B0 ff 88 Fr 08 FF :<b6> 


>10ba BB fr DB fr BD FF 08 FF :<c6> 


»10b8 BB ff BB ff BB FF BB FF :<d6> 
>10cH8 BB ff DD fr aD FF 980 ff :<e6> 
>10c8 BB ff BD FF om FF Ba FF :<f6> 
>18dB nm ff DB fr Ba fr Da FF :<Q7> 


>12d8 DB FF DB FF DR FF O0 FF :<17> 


>1BeB an ff DO FF Ba FF DO ff :<27> 
>1B8e8 DB fr Bm Fr Ba FF DO FF :<37> 
>ıearBe on ff nn Fr Da FF Da FF :<47> 
>10f8. an FF Dom Fr Da FF Da Bi :<57> 
>1108 81 A2 88 72 80 78 80 78 :<87> 


>1108 88 32 88 32 Q8 78 88 78 :<c2> 
>111B 00 72 08 A2 BB AB OB 48 
>1118 88 2c BB 2c 88 A8 80 48 :<ff> 


>1129 BB a2 80 72 88 78 88 78 :<cB> 
>1128 88 32 88 32 08 78 B0 78 :<82> 
>1130 BR 72 DB A2 Bm AB BR 48 :<Bd> 


>1138 88 2c BB 2c 88 48 89 48 :<3e> 
>114B 808 38 80 38 80 O8 BR 988 
>1148 88 38 88 38 88 88 88 988 :<3a> 
>1150 80 B8 HB DB Bu 38 BR 38 
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>1158 
>1168@ 
>1168 
»-1178 
>1178 
>1188 
>1188 
>1198 
>1198 
>11a® 
>1138 
>11b® 
>11b8 
>11c® 
>11c8 
>11d8 
>11d8 
>11eB 
>11eB 
>11f® 
>11f8 
>1208 
>1208 
>1218 
>1218 
>1228 
>1228 
>1238 
>1238 
>1248 
>1248 
>12508 
>1258 
>1268 
>1268 
>1278 
>1278 
>1288 
>1288 
>1298 
>1298 
>1238 
>12a8B 
>12b® 
>12b8 
>12c8 
>12c8 
>12d8 
>12d8 
>12e® 
>12e8 
>12fB 
>12f8 
>1388 
>1308 
>1318 
>1318 
>1328 
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:<e?7> 
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>1328 
>1338 
>1338 
>1348 
>134B 
>1358 
»1358B 
>1368 
>1368 
>1378 
>1378 
>1388 
>1388 
>1398 
>1398 
>1338 
>13a8 
>13b8 
>13b8 
>13c82 
>13c8 
>13d8 
>13d8 
>13e®d 
>13e8 
>13f8 
>13f8 
>1408 
>1488 
>1418 
>1418 
>1428 
>1428 
>1438 
>1438 
>1448 
>1448 
>1458 
>1458 
>1468 
>1468 
>1478 
>1478 
>1488 
>1488 
>1498 
>1498 
>14a0 
>1438 
>14bB 
>14b8 
>14c® 
>14c8 
>14d® 
>14d8 
>14eB 
>14e8 
>1Ar0 


ı<32> 
:<B1> 


<5?> 


:<Ac> 


<de> 
<5e> 
<cä4> 


:<B8> 


<5d> 


:<da> 
:<b7> 


<ab> 
<Bßb> 


:<bb> 


<99> 
<a9> 
<b9> 


:<c9> 


<d9> 
<e9> 
<f9> 


:<Ba> 


<1la> 
<23a> 


ı<3a> 
:<da> 


<Sa> 


ı<3a> 


<79> 


:<89> 
ı<99> 


<a9> 


:<b9> 
ı<c9> 
:<d9> 


<e9> 
<f9> 
<Ba> 
<ia> 


ı<2a> 


<33a> 
<Aa> 
<59> 


:<6a> 
ı<7a> 
ı<Ba> 
ı<9ga> 
:<aa> 


<ba> 


:<ca> 
:<da> 
:<ea> 


<fa> 
<Bßb> 
<i1b> 


ı<2b> 
ı<3b> 
:<4ab> 
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>ı1arf8 
>1589 
>1588 
>1518 
>1518 
>1528 
>1528 
>1538 
>1538 
>1548 
>1548 
>15508 
>1558 
>1568 
>1568 
>1578 
>1578 
>1588 
>1588 
>1598 
>1598 
>1538 
>15a8 
>15bB 
>15b8 
>15c8 
>15c8 
>15d& 
>15d8 
>15eB8 
>15e8 
>15f8 
>15f8 
>1698 
>1698 
>1618 
>1618 
>1628 
>1628 
>1638 
>1638 
>1648 
>1648 
>1658 
>1658 
>1668 
>1668 
>1678 
>1678B 
>1689 
>1688 
>1698 
>1698 
>16a8 
>1638 
>16b8 
>16b8 
>16c8 


:<S5b> 
:<3b> 
:<Ja> 


<Ba> 


:<Da> 


<aa> 
<ba> 
<ca> 


:<da> 


<eä> 
<fa> 
<db> 
<36> 


ı<2b> 
:<3b> 


<4b> 


:<5a> 
ı<6b> 
:<7b> 
:<8b> 
:<9b> 


<ab> 


:<bb> 


<cb> 


:<db> 
:<eb> 


<fb> 
<Bc> 


:<i1c> 


<?c> 


3E> 


<4Ac> 


:<5c> 
< Ic» 
:<?7b> 


<8b> 


:<9b> 
:<78> 
:<bb> 
:<cb> 
:<db> 


<eb> 


ı<fb> 
:<dc> 


<1c> 


:<2c> 
:<3c> 


<Ac> 


:<5b> 


<6c> 
<7c> 


:<Bc> 
:<9c> 
:<ac> 
:<bc> 
:<cc> 
:<dc> 
:<sec> 


Vv 
_ 
je) 
+ 
8 
8 
Ss 
+ 
= 
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8 
+ 
+ 
S 
S 
+ 
+ 
S 
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+ 
+ 

A 
PS 
ja 

v 


vV 
S 
S 
S 
S 
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S 
Ss 
Ss 
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+ 
S 
8 
+ 
+ 
S 
[>>] 
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w 
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v 
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Fortsetzung von Seite 51 


GESCHWINDIGKEITS-STEIGERUNG 


Die Rechengeschwindigkeit im L-Modus kann erhöht 
werden, wenn der zu löschende Bereich des Grafik- 
bildschirm verkleinert wird. Dies kann geschehen 


durch: 

POKE DEC(‘“6D45‘),HA 

POKE DEC(‘‘6D26‘),HE 

Mit HA sei hierbei das Highbyte der Adresse, ab der 
gelöscht werden soll, bezeichnet. HE sei das High- 
byte der Adresse, bis zu der gelöscht werden soll. Es 
ist zu beachten, daß HA größer oder gleich 20 zu sein 
hat und HE kleiner gleich 63. 5 
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WICHTIGE RECHTLICHE 
GARANTIE! 
Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 


der Abo-Bestätigung durch den 
Verlag widerrufen — Postkarte ge- 
nügt. Zur Wahrung der Frist genügt 
die rechtzeitige Absendung. An- 


KOMMT 

REGELMÄSSIG 
ZU IHNEN 
INS HAUS 


Finden Sie Ihr C16/P4 nicht am Kiosk? Weil es schon 
ausverkauft ist? Oder „Ihr’’ Kiosk nicht beliefert 
wurde? Kein Problem! Für ganze 60 DM liefern wir 
Ihnen per Post sechs Hefte ins Haus (Ausland 80 DM). 
Einfach den Bestellschein ausschneiden — fotoko- 
pieren oder abschreiben, in einen Briefumschlag und 
ab per Post (Achtung: Porto nicht vergessen). C16/P4- 
SPECIAL kommt dann pünktlich ins Haus. 


sonsten läuft dieser Auftrag je- 

weils für sechs Ausgaben, wenn 

ihm nicht vier Wochen vor Ablauf 
widersprochen wird, weiter. 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, .abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes — Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu- 
läßt. 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen 4 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 


FE BEL TEZERESEr FR 
I 0 m PD a DD DE De a a En 


COMMODORE WELT . 
ANZEIGENABTLG in 
POSTFACH 1161 Straße/Hausnr. 


D-8044 UNTERSCHLEISSHEIM _Piz/Ort 


>€E----- ------ -- ------------------22-222-22--______LLL_ 


ABO-SERVICE-KARTE 


-2E a SER ale a a a ee ee u Gen Ey yes 


| ir Ö r sechs Ausgab 
16/1 COUPON Ja, ich möchte von Ihrem Angebot s Ausgaben an untenstehende 


Gebrauch machen. Anschrift. Wenn ich nicht vier Wo- 
Bitte senden Sie mir bis auf Wider- chen vor Ablauf kündige, läuft diese 
ruf ab sofort jeweils die nächsten Abmachung automatisch weiter. 


Ich nehme zur Kenntnis, Name 16/1 
daß die Belieferung 


‚ £ Vorname 
erst beginnt, wenn die 
Abo-Gebühr dem Verlag Straße /Hausnr. BERREBEEN 
zugegangen ist. Plz/Ort 
Ich bezahle: 


D per beiliegendem Verrechnungsscheck 
DO) gegen Rechnung 
OD) bargeldlos per Bankeinzug von meinem Konto 


bei (Bank) und Ort_____ a B en 


Kontonummer REN 
COMMODORE WELT Bankleitzahl zn a 
ABO-SERVICE 16/l ... Kontoauszug) 
POSTFACH 1161 a — - _ 
D-8044 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 


UNTERSCHLEISSHEIM Unterschrift 
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PROGRAMNMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 
OD Kassetten zu 40,- D Disketten zu 40,- (16er) 


Ich zahle: ’ 
Zutreffendes bitte ankreuzen! 


per beigefügten Scheck ( ) Schein ( ) 


Gegen Bankabbuchung am Versandtag ( ) 
Meine Bank (mit Ortsname) 
Meine Kontonummer ___ 
Meine Bankleitzahl 
Vorname _ one 
Str./Nr. ____ 


ee ae N 


ne en ._ (steht auf jedem Bankauszug) . 
een een NENNEN neue 
_ Ge PIERRE. 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Nichtfunktionieren. 16/1 

Unterschrift 
Bitte ausschneiden und einsenden an 


COMMODORE WELT 
KASSETTENSERVICE 16/Il 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


LESER WERBEN LESER 


GEWINNEN SIE EINE COM- 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER —- 
ODER EINE DISKETTENSTA- 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver- 
losen wir unter allen, die mit- 
machen, jeden Monat vier weitere 
wertvolle Preise. Und alle sechs 
Monate gibt es einen Hauptpreis 
unter allen Abo-Werbern zu 
gewinnen. Also: Mitmachen. Mit- 
gewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn/Frau 


Straße/Hausnr. 


Plz/Ort 


als neuen Abonnenten der COM- 
MODORE WELT geworben. 
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Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab- 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats. 
sowie der halbjährlichen Haupt- 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun- 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


Name _ 

Straße/Hsnr. 

Plz/Ort 

(Bitte ausschneiden und zusam- 


men mit der Abo-Bestellkarte 
links einsenden!) 16/1 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 123? Können Sie 
programmieren? In Basic_ oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Name des Einsenders: 
Straße/Hausnr./Tel.: 
Plz/Ort: 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und ‚umgestaltete”” Programme ziemlich schnell er- 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügtt ( ) Listings ( ) Kassette ( ) Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy- 


right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


BE Im LSTINGE 


Botanik 


In einer Zeit, in der MacDonald’s-Restaurants 
und Imbißbuden wie Pilze aus dem Boden schießen, 
darf eines nicht vernachlässigt werden, nämlich 
das Wissen um den Gartenbau und um gesunde 
Ernährung. Testen Sie Ihre Kenntnisse. 


Je zehn Fragen zu den fünf Themen 

— Allgemeiner Gartenbau 

— Gemüsebau 

— Obstbau 

— Verwendung, Haushalt 

— Biologischer Anbau 

warten auf Ihre Beantwortung. Drei Antworten sind 
jeweils zur Wahl gestellt. Nachdem Sie den Test absol- 
viert haben, bewertet das Programm Ihre Leistungen. 
Auf Tastendruck können Sie sowohl die richtigen als 
auch Ihre unrichtigen Antworten, schwarz auf weiß 
ausgedruckt, erfahren. E 
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BOTANIK-TEST 


18 rem botaniktest 
28 rem (p) commodore welt team 

38 rem ==========-=-=-=-=- === ====22=2=== 
48 rem (c) by hermann wellesen 7.8 


5B rem (v) by bernd welte 3.5 
68 rem 

78 rem basic v3.5 

88 rem plus4 (c16/116. + 64 kb) 

98 rem ====================220m22sm 
100 rem Frartsneanngeeaseeneenegene 
118 rem * angeregt durch die = 
128 rem * landwirtschaftskammer „® 
138 rem * rheinland * 
140 rem Frarasaeeeeeeneeeeeeeeeeeen 
158 s1$=chr$( 832) :bs$=chr$( 845) 


168 
178 
188 
198 
208 
210 
228 
238 
2480 
155] 
258 
268 
270 
288 
298 
328 
318 
328 
338 
348 


a2$=s1$+s1$:33$=a2$+s1$ 
a4$=a3$+s1$:35$=a4$+51$ 
c1$=chr$( 147) :c4$=chr$( 917) 
c1$=chr$( 157) :rn$=chr$( 818) 
rf$=chr$( 146) 
poke65385,8:poke65301,8 

rem * run/stop sperren, aber * 
rem * nicht run/stop/restore * 


printchr$( 814) ;chr$( 888) ;chr$( 


rem #FF°##### dimensionieren *# 

rem * und einlesen der fragen* 

dima$( 258) :fori=1t0258 
reada$(i) :nexti 

rem * definition sachgebiete * 
t$(1)="Allgemeiner Gartenbau” 
t$( 2)="Gemuesebau" 
t$(3)="Obstbau" 
t$(4)="Verwendung, Haushalt" 
t$(5)="Biologischer Anbau” 
358 rem FRRFHRRERRERE definition 
368 rem *#* der bewertungssaetze 
378 en$(®)="Ihr Wissen laesst zu 
uenschen uebrig” 

388 en$( 1)=en$( B) 

398 en$( 2) =en$( 8) 

488 en$( 3) =en$( ®) 

410 en$(4)="Na ja, das koennte bes 
ser sein" 

428 en$(5)=en$( 4) 

438 en$(6)="Schon ganz gut, was $i 
e so wissen” 

448 en$( 7) =en$( 6) 

458 en$(8)="Das ist ja prima. Fast 
volle Punktzahl" 

460 en$( 9) =en$( 8) 

478 en$( 18)="Bravo, alle Antworten 
richtig." 

488 rem *** bewertungsvariabelen * 

498 rem #FRSRRH8R zuruecksetzten * 

588 Fori=B8to19:b[i)=B:nexti:b=® 

518 rem Frame hauptmenue * 

528 printc1$c4$c4$c4$a2$"Was wisse 


2% 


Die 


X 


<jl> 
<ho> 
<ng> 
<bf> 
<mg> 
<ah> 
<nl> 
<fd> 
<jg> 
<hl> 
<pc> 
<de> 
<la> 
<ok> 
<hh> 
<dh> 
<ik> 
<jf> 
<gj? 
<mo> 
<go> 
<bd> 
<jm> 


<ik> 
<im> 
<bg> 
<1j> 
<hl> 
<em> 
< jm> 
<kk> 
<gk> 
<11> 
<lb> 
<nh> 
<ma> 


<pj? 
<on? 
<ka> 
<mj? 


<hp> 
<en> 


<bl> 
<ok> 


<lc> 
<gm> 


<jj> 
<oa> 
<oc> 
<ac> 
<km> 
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n Sie vom Gartenbau ?" 

538 printc4$c4$a2$"Hier koennen Si 

e an 18 Fragen Ihr” 

548 printa2$"Allgemeinwissen ueber 

pruefen."c4$ 

558 fori=1to05 

568 printc4$a2$rn$;i;c1$s1$rf$sist 

$(i) 

578 nexti 

588 printc4$c4$a3$rn$" Waehlen Sie 
Ihr Fachgebiet ! "rf$ 

598 getz$:z=vallz$) 

688 ifz<lorz>Sthen598 

610 rem *##*#** beginn des tests *# 

628 v=( z-1)*58 

638 Fori=8to45stepS:ii=i+tv 

648 printcl$rn$"” Es ist immer nur 

eine Antwort richtig! "rf$ 

650 rem FFEHEAERHE Fragestellung # 

668 printa$lii+1):printaglii+2) 

678 rem #rtrsateeeee ausgabe der * 

688 rem *** moeglichen antworten *# 

698 for j=3t05 

788 printc4$s1$rn$; j-2;c1$s1$rf$c4A 

$ 

710 printleft$(a$(ii+j),lenla$l ii+ 

J3))-1);04$ 

728 ifright$la$lii+j),1)<>si$thenc 

=vallright$(a$lii+j),1)) 


730 nextj 

740 rem ####2%2%2% antwortabfrage * 
758 getz$:z=vall(z$) 

768 ifz<lorz>3then?758 

778 ifz=cthenb=b+1:gosub1148 

788 ifz<>cthenb(i/5)=ii+2+z:gosub1 
188 

798 nexti 

BOB rem FFHR#2% ergebnisausgabe * 
BIB rem *H#rx#22%% mit bewertung * 
828 printc1$c4$c4$c4$c4$a5$a3$rn$" 


Und hier Ihr Ergebnis: "rf$ 

838 printc4$"Von 18 Fragen zum The 
ma" 

848 printc4$rn$s1$t$lv/5B+1) s1$rrf$ 
850 printc4$"wurden”;b;"Fragen ric 
htig beantwortet." 

868 printc4$c4$c4$"Zu dieser Leist 
ung sage ich:” 
878 printcA$en$(b) 
888 printc4$c4$c4$c4A$a4$rn$” 1 "rf 
$" = Neustart"a5$; 
898 printrn$” @ "rf$;" = 
988 getz$ 
919 ifz$<>"1"andz$<>"B"then9aB 
928 ifz$="1"then588 
930 rem **#*% drucken der fragen * 
948 rem * antworten & bewertungen* 
958 open1,4:cmdi:print 


Drucken” 


| BOTANIK-TEST 


968 printa5$s1$"Sie testeten Ihr W 
issen zum Thema "t$( v/58+1) 

978 print:fori=8t045stepS:ii=i+v:p 
rint 

98@ ifright$(la$lii+1),1)<>bs$thenp 
rinta$l ii+1)s1$a$(ii+2) :g0to1988 
998 printleft$(a$lii+1), lenla$lii+ 
1))-1) ;a$lii+2) 

10088 for j=3to5 

1818 ifright$(la$lii+j),1)<>s1$then 
printleft$(la$(ii+j),lenla$lii+j))- 
1) 
19028 
1938 
wort 


nextj 

ifb(i/5)<>®thenprint"Ihre Ant 
lautete "a$(b(i/5)) 

1848 print:nexti:print:print 

1858 printchr$( 14) "Und hier Ihr Er 

gebnis:"chr$( 15) 

1868 printc4$"Von 18 Fragen zum Th 

ema "t$(v/58+1) 

1878 print"wurden";b;"Fragen richt 
ig beantwortet.” 

1888 print 

1898 print"Zu dieser Leistung sage 
ich: "en$(b) 

1188 print#1 

1118 close1:goto588 

1128 rem #*##%2#%2% unterprogramm * 
1138 rem #***** richtige antwort * 
1148 printc4$a4$rn$” Bravo, die An 

twort ist richtig "rf$ 

1158 fork=1t018@8:nextk:return 
1168 rem FF#R#RR8% unterprogramm * 
1178 rem *#*#*### falsche antwort *# 
1188 printa2$rn$"” Die Antwort ist 

leider falsch "rf$ 

1198 printc4$" Richtig waere : "rn 

$;c;c1$s1$rf$ 

1288 fork=1t02888:nextk:return 
1218 rem * datastatements mit den* 
1228 rem ** fragen und antworten * 
1238 rem * allgemeiner gartenbau * 

1248 data"Wieviel gaertnerische Be 
triebe gibt" 

1258 data"es in der Bundesrepublic 
k Deutschland ?" 

1268 data"15008 " 

1270 data"30008 " 

1288 data"450003" 

1298 data"Mit wieviel % ist der Ga 
rtenbau am" 

1308 data"Gesamtenergieverbrauch b 
eteiligt ?"” 

1318 data"”®.5 %1" 

1328 data"1.0% " 

1338 data"2.3% " 

1348 data”Wie gross ist die GBemues 

eanbauflaeche"” 


<gf> 
<fl> 
<ij> 


<gm> 
<ii> 


<jp> 
<en> 


<aj? 
<if> 


<ad> 
<ij> 


<gd> 
<bb> 


<ch> 
<kb> 
<ig> 
<ma> 
<ei> 


<bk> 
<fj> 
<jo> 
<bo> 


<mc> 


<ce> 
<nf> 
<cj? 
<ap> 
<ap> 


<en> 


<kj> 
<ni> 
<ko> 
<bp> 


<mm> 
<kf> 
<be> 
<gf> 


<go> 


<lk> 
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1350 data"in Nordrhein-Westfalen ? 
1368 data” 2588 ha "” 

1378 data” 8808 ha2” 

1388 data"10808 ha " 

1398 data”Welches Bundesland hat d 
ie groesste" 

14088 data"Anbauflaeche fuer Gemues 
e ?"” 
1418 
1428 


data"Nordrhein-Westfalen!" 
data”Bayern " 

1438 data"Niedersachsen " 

1448 data"”Wieviel Stueck Kopfsalat 
werden in der" 

1458 data”Bundesrepublik Deutschla 
nd produziert ?" 


1468 data"18® Mio. Stueck "” 
1478 data”148 Mio. Stueck " 
1488 data"188 Mio. Stueck3"” 


1498 data”Wodurch kann die heimisc 


he Gemuese-" 

15080 data”saison verlaengert werde 
14 BR dag 
1518 
1528 
1538 
1548 
gibt 
1558 
1568 
1578 


data”Anbau im Gewaechshaus1" 
data"”verstaerkte Importe "” 
data"”mehr Arbeitskraefte "” 
data"”Wieviel Obstbaubetriebe 
es" 

data”im Rheinland ?" 

data” 7381” 

data”1150 " 

1580 data"475B8 " 

1598 data"”Welche der angebauten Ob 
starten nimmt" 

1688 data"die groesste Anbauflaech 
e ein ?" 

1618 data"Erdbeeren "” 

1628 data"”Aepfel2" 

1638 data"Sauerkirschen. " 

1648 data"Wie gross ist die gesamt 
e Gewaechs-" 

1658 data"hausflaeche in der Bunde 
srepublik ?"” 

1668 data”1588 ha " 

1678 data”"2708 ha "” 

1688 data”3488 ha3” 

1698 data"Wieviel Arbeitskraefte b 
eschaeftigt" 


1788 data"der Deutsche Gartenbau ? 
1718 data” 95888 " 
1728 data” 1750802” 
1738 data"24B008 " 
1748 rem FRERERREREt gemuesebau * 
1758 data”Wie hoch ist der jaehrli 


che Pro- Kopf- 
1768 data"Verbrauch an Gemuese in 
Deutschland ?" 


BOTANIK-TEST 


1778 data" 78 Kg1" 

1788 data” 98 Kg " 

1798 data"11@ Kg " 

1888 data"In welchem EG-Land wird 

die” 

1818 data”dreifache Menge verzehrt 
on 

1828 data"Griechenlandi"” 

1838 data"Frankreich " 

1848 data"”Italien " 

1858 data"”Ab wann ist das erste he 

imische" 

1868 data"Freilandgemuese auf dem 

Markt 7?" 

1878 data"Ende April/Anfang Maii" 
1888 data"”Ende Mai/Anfang Juni * 
1898 data"Ende Juni/Anfang Juli " 
1988 data"Wann ist die Saison fuer 
den" 

1918 data"heimischen Spargel ?" 
1928 data”Februar - Maerz " 

1938 data"April - Juni2" 

1948 data"”Juli - September "” 

1958 data"Welches Land, ist das ur 
spruengliche" 

1968 data"Heimatland der Tomate ?" 
197@ data"”Spanien " 

1988 data"Suedasien " 

1998 data"Suedamerika3” 

20808 data"Was ist Pak Choy " 

2818 data"”(oder Paksoi) ?" 

2028 data"eine Bonsaiart 

2838 data"”ein Chinesischer Genuese 

baubetrieb "” 

2048 data”neue, aus Japan stammend 

e Kohlart, die auch im Rheinland 

angebaut wird3"” 

2858 data"”Werden Brokkoli und Fenc 
hel auch" 

2868 data"im Rheinland angebaut ?" 

2078 data” ja1" 

2088 data"”nein, werden aus Italien 
importiert " 

2898 data”nein, werden aus Holland 
importiert " 

2188 data"In welchem EG-Land befin 

den sich die" 

2118 data”groessten Gewaechshausfl 

aechen zur Gemueseproduktion 

7" 

2128 data"in der Bundesrepublick D 

eutschland " 

2138 data”in den Niederlanden?" 

2148 data"in Italien "” 

2158 data"”Was ist der Unterschied 

zwischen” 


2160 data"Zuckermais und Feldmais 
vl 


<hk> 
<dd> 
<nm> 


<l1h> 


<pl> 
<db> 
<pn> 
<oj? 


<lc> 


<kd> 
<eo> 
<bg> 
<jd> 


<gd> 
<jl> 
<ib> 
<ej?> 
<fg> 
<ig> 
<ik> 
<ph> 
<la> 
<ji> 
<df> 
<gh> 
<om> 


<ij> 


<ik> 
<om> 
<op> 
<pf> 
<gi> 


<df> 


<gc> 


<cb> 
<cn> 
<em> 
<cg> 


<hn> 


<hm> 


2170 data"es gibt keinen Unterschi 
ed * 

2188 data”Feldmais wird auf dem Fe 
ld, Zuckermais wird im Gewaechsha 
us angebaut 

2198 data"Zuckermais wird zur Milc 
hreife geerntet und schmeckt suess 
er3" 

2208 data”Was sind" 

2218 data"Kulturraueschlinge ?" 
2228 data"”eine neue Gemueseart " 
2238 data"”eine neue Obstart * 

2248 data"Pilze, die man auch im e 
igenen Garten anbauen kann3" 
2258 rem Hrememnnnuntt obstbau # 
2268 data"Wie hoch ist der Pro-Kop 
f-Verbrauch"” 

2278 data"an Obst in der Bundesrep 
ublik ?" 

2280 data” 68 Kg " 

2298 data” 88 Kg2" 

2308 data”18@ Kg " 

2318 data"Wo liegen die bedeutenst 
en Obst-Anbau-" 

2328 data”gebiete der Bundesrepubl 
ik ?" 

2338 data"in der Lueneburger Heide 


2348 data"im Rheinland?" 
2358 data”in der Schwaebischen Alp 


2360 data"”Wie lautet der Name eine 

r fruehen"” 

2378 data"heimischen Apfelsorte ?" 

2388 data"”James Grieve " 

2398 data"”Boskop " 

2488 data”Klarapfel3" 

2418 data"Welche Apfelsorte enthae 
IE” 

2428 data”besonders viel Vitamin C 
„7“ 

2438 data”Berlepsch1" 

2448 data”Golden Delicious "” 

2458 data”Cox Orange " 

2468 data"Von welcher Obstart esse 
n die deutschen" 

2478 data"Verbraucher am meisten ? 


2488 data"Erdbeeren " 

2498 data”Aepfel2"” 

2588 data"Apfelsinen " 

25180 data”Wo liegt das rheinische 
Haupt-"” 

2528. data"”anbaugebiet fuer Aepfel 
7" 

2530 data”im Raum Meckenheim!" 
2548 data"”im Raum Kleve " 

2558 data"im Grossraum Duesseldorf 


<1lm> 


<pl> 


<ci> 
<cn> 
<1ln> 
<bg> 
<hm> 


<kd> 
<le> 


<l1p> 


<mk> 
<an? 
<ii> 
<mm> 


<og> 
<pn> 


<ig> 
<if> 


<hg> 


<oo> 
<mb> 
<ma> 
<ck> 
<ka> 


<mc> 


<am> 
<id> 
<ja> 
<jm> 


<ga> 


<po> 
<ok> 
<co> 
<in> 


<ei> 
<gk> 


<lg> 
<fg> 
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” <jc> 2988 data"sind essbar ?" <mp> 
2560 data"Ab welchem Monat gibt es re I ee u 
Erdinänag” mj> 3u80 data die spargelaehnlichen St 
2578 data"aus deutschen Landen ?" <ff> SEIE UM DIR BrUnB2” SR: 
2580 data”Mai " eis 3818 data"nur die Stiele " <ho> 
2598 data"Juni2" <ak> 3028 data” " <cp> 
2608 data"Juli " <gl> 3038 data"”Was sind Ballaststoffe ? 
2618 data” " <fe> bi <fp> 
26290 data"Erdbeeren wachsen an :" <gh> 3848 data"Zubehoer von Heissluftba 
2638 data"Baeumen " <kn> llons " <ed> 
2648 data"Straeuchern * <kj?> 3858 data"notwendige Bestandteile 
2658 data"Stauden?” <hf> der Ernaehrung2" <fc> 
2668 data”Welche Erdbeersorte laes 3068 data"”unnoetige Bestandteile d 
st sich" <ho> er Ernaehrung " <ce> 
2678 data”gut tiefgefrieren ?" <na> 30780 data” " <1m> 
2688 data"Tenira " <fc> 3888 data"Was ist Nitrat ?" <eg> 
2698 data"Elvira " <ob> 3898 data"ein Salz der Salpetersae 
2708 data"Senga Sengana3" <hh> ure und ein Pflanzennaehrstoff 
2718 data" " <hj> ie ; <ae> 
2728 data"Rhabarber ist :" <di> 3188 data"ein Pflanzengift " <go> 
2730 data”eine Obstart " < jm> 3118 data"ein Vollduenger " <hd> 
2748 data"eine Gemueseart2" <kb> 3128 data” " <fe> 
2758 data"ein Kuechenkraut " &ab> 3138 data"Wie sollte Salat gewasch 
2760 rem *** haushalt/verwendung * <jh> en werden ?” <bd> 
2770 data"Wieviel Gemuese sollte m 3148 data”nit: warmen Wasser " <ap> 
an" dad 3158 data”mit kaltem Wasser2" <ab> 
2780 data"taeglich essen ?" <bl> 3168 data”durch langes waessern " <cf> 
2790 data” 50 - 100 g " <li> 3178 data"”Warum sollte Rhabarber i 
2800 data”ıaa - 150 g " <dj> ee <oa> 
2818 data”208 - 258 g3" <pi> 3188 data"monaten nicht so oft geg 
2828 data”Warum ist frisches Gemue essen werden ?” *1b> 
se fuer die” «wi» 3198 data”es ist genug anderes Gem 
2830 data"Ernaehrung so wichtig ?"” <jh> Brnn ee i . <bp> 
2848 data"weil es im ganzen Jahr v 3288 data"weil er im Sommer nicht 
erfuegbar ist " <fh> so gut schmeckt " <om> 
2858 data"weil es viele Vitamine, SR10 USER WALN BE im Sommer sänen 
Minaeral und Ballaststoffe enth erhoehten Oxal- saeuregehalt aufwe 
aelt2“ <fo> ist3" <ec> 
2860 data"weil es so preisguenstig 3228 data"Woraus sollte eine gesun 
ist " <mo> de” <nf> 
2878 data"Welche Kraeuter lassen s 3238 data"Ernaehrung bestehen ?" <1k> 
ich" <dg> 3248 data”nur aus Gemuese " <Iin> 
2888 data"besonders gut trocknen ? 3250 data"aus gemischter Kost2" <hg> 
” eng> 3268 data"”nur aus Fleisch " <md> 
2898 data"Petersilie, Schnittlauch A270 Dem. TeR BARIORLACHET- Ankau * ag 
” <ic> 3288 data”" <fh> 
2900 data”Bohnenkraut, Majoran, Th 3298 data"”Welche Eigenschaften hab 
ymian, Rosmarin?" <le> en Ohrwuermer ?"” <ai> 
2910 data"”Zitronenmelisse, Basilik 3308 data"raeuberische Insekten, d 
um * N ie z.b. Laeuse fressen!" <ad> 
2928 data" " <al> 3318 data”sind schaedlich " <da> 
2930 data"Was ist Tripmadam ?" <1F> 3328 data”sind weder nuetzliche, n 
2948 data"ein gaertnerischer Beruf och schaedlich " <jb> 
” zanı 3338 data”Unter welchem Markenzeic 
2958 data"ein Unkraut ” <cc> hen. Reieaun Ban" <ch? 
2968 data"ein Kuechenkraut3" <dk> 3340 data"logisch-dynamisch erzeug 
2970 data"Welche Teile des Brokkol a RR EEE MERERUEN DD, > 
is" <mg> 3358 data"ANOG " <bn> 
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3368 data”Demeter?” 

3378 data"Bioland " 

3388 data"Wieviel Prozent der land 
wirtschaftlich" 


3398 data”genutzten Flaeche werden 
alternativ bewirtschaftet ?"” 
3488 data” 8,2 %1"” 


3418 data” 1,08%" 

3428 data"18,08 % " 

3438 data"Wie wird im biologischen 
Anbau "” 

3448 data"geduengt ?"” 

3458 data"”ueberhaupt nicht "” 

3468 data"”mit Mineralduengern " 
3478 data”mit Kompost oder Stallmi 
st3" 

3488 data”Wie wird im biologischen 
Anbau" 

3498 data"Pflanzenschutz betrieben 
7" 

3588 data”ueberhaupt nicht "” 

3518 data”mit ungiftigen Chemische 
n Mitteln " 

3528 data"”mit natuerlichen Mitteln 
zu 

3538 data"Wieviel verschiedene Alt 
ernative"” 

3548 data"Anbaurichtungen gibt es 
7“ 

3558 data” 2 Anbaurichtungen " 
3568 data” 5 Anbaurichtungen "” 
3578 data"2® Anbaurichtungen3” 
3588 data”Welche Massnahme ist bei 
allen alter-"” i 

359@ data"nativen Anbaurichtungen 
gleich ?" 

3688 data"Foerderung der Bodenfruc 
htbarkeit1". 

3618 data"Beachtung von Mond-RAhyth 

men " 

3628 data"”Spritzen mit Hornmist un 

d Hornkiesel " 

3638 data"Wieviel Insekten kann ei 

n Meisenpaar" 

3648 data"mit Nachkommen pro Jahr 
vertilgen ?" 

3658 data”ı@ Kg " 

3668 data”30 Kg " 

3678 data”7@ Kg3" 

3688 data”Welches Insekt ist ein n 

atuerlicher" 

3698 data"”Blattlausfeind ?" 

3788 data"Maikaefer " 

3718 data"Marienkaefer?2" 

3728 data”Wespe " 

3738 data"Welche Gruenduengungspfl 

anze kann" 

3748 data"Stickstoff sammeln ?" 


<mm> 
<cn> 


<bl> 
<gh> 
<gi> 
<cm> 
<ok> 


<eo> 
<fc> 
<jp> 
<gi> 
<fj> 


<cn> 


<ik> 
<ad> 


<an? 
<od> 
<bk> 
<cc> 
<bd> 
<ab> 
<ee> 
<cc> 
<if> 
<af> 
<ae> 
<do> 
<hp> 
<pf> 
<en> 
<ka> 
<bl> 
<hl> 
<ip> 
<ij> 
<1lm> 


<kg> 


<pi> 
<de> 


3758 data"”Lupine1"” <1j> 
3768 data"Senf " <hp> 
3778 data"Winterroggen " <cj? 


3780 rem =============-=2=2=-=-=-=-=-=-==- == <ai> 


3798 rem 68671 bytes memory <ei> 
3888 rem 11648 bytes program <kc> 
3818 rem 88898 bytes variables <nm> 
3828 rem 88982 bytes arrays <bl> 
3838 rem B6884 bytes strings <ob> 
3848 rem 41219 bytes free (®B) <kh> 
3858 rem ========================= ma) 


Vier Glücksspiele, Color-Set, Change, High-Low und 
Blue Jack, finden Platz im Speicher des C16/116, 
und das mit Anleitungen, Sound und guter Grafik. 

Wieder einmal beweist uns Peter Bergen, was sich aus 

dem Rechner herausholen läßt. 


Als C16-User bekommt man oft zu hören, daß mit 
nur 12 KByte Speicherplatz kaum ein vernünftiges 
Programm zu schreiben sei. 

Um das Gegenteil zu beweisen, habe ich das Programm 
Kasino geschrieben. Obwohl man es kaum für möglich 
hält, befinden sich bei dieser Glücksspielsammlung 
gleich vier unterschiedliche Programme zur gleichen 
Zeit im Speicherplatz des C16, wobei auch die Anlei- 
tungen mit einprogrammiert sind. 

Bei Kasino handelt es sich um Glücksspiele, die in ei- 
nen Spielautomatenlook verpackt wurden. Alle vier 
Spiele sind einzeln (gegen den Highscore) oder mit bis 
zu vier Teilnehmern spielbar. 

Die Einsparung an Speicherplatz ist darauf zurückzu- 
führen, daß Ton- und Grafikroutinen gemeinschaft- 
lich von allen vier Spielen genutzt werden; dennoch 
unterscheiden sich die Spiele deutlich voneinander. 


DAS PROGRAMM 


Kasino ist so aufgebaut, daß alle vier Spiele einen ge- 
meinsamen Anfangsteil innerhalb der Zeilen 120 bis 
220 haben und in Zeile 230 zu den verschiedenen 
Mittelteilen verzweigen. 

Falls nach der Rückkehr ein Gewinn vorliegt, folgt 
ein gemeinsamer Endteil ab Zeile 240 (Risikomög- 
lichkeit), andernfalls ab Zeile 250. 

Innerhalb der zehn Runden wird eine Schleife von 
Zeile 220 bis 280 gebildet. Nach Ablauf aller Runden 
erfolgt über die Endroutine (1290 bis 1350) ein Neu- 
start ab Zeile 120. 

Die Programmierung wurde nach dem Prinzip konse- 
quenter Unterprogrammierung vorgenommen, so daß 
es mir sinnvoll erscheint, statt einer konventionellen 
Programmbeschreibung die Bedeutung der einzelnen 
Programmabschnitte zu benennen. 

Zusammen mit der Variablenliste dürfte so der Algo- 
rithmus von Kasino leicht verfolgbar sein. 
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100- 280 = 


0 
0 
0 
0 
1380-1450 
0 
0 
0 
0 


1600-174 


Nach Las Vegas in das Spiel- 
paradies, fühlt sich der 
Kasino-Spieler versetzt, das 
Flamingo wartet auf Sie. 


1890-2180 = 


2190-2330 = 


Hauptprogramm 

Mittelteil von COLOR-SET 
Mittelteil von CHANGE 
Mittelteil von HIGH-LOW 
Mittelteil von BLUE JACK 
Endroutine 

Zufallszahlen K (1-5) 
Zufallsfarben F (1-5) 
Blaufärbung der Karten 
Tasten An/Aus-Schaltung 
Nachziehung der Karten 
Risiko-Routine 


Punkte- und Highscore-Anrechnung 

Soundroutinen 

1820 = Verlust 

1830 = Gewinn 

1840 = Anfang 

1870 = Ende 

Grafikunterprogramme 

1910 = Mittelfenster 

1920 — 1930 = Spielerfenster 

1940 = Highscorefenster 

1950 — 1960 = Spielerbeschriftung 

1980 = Kartenrückseite 

1990 — 2040 = Kartenvorderseite 

2110 — 2140 = Neue Risikoleiste 

2150 — 2160 = Tasten-An/Aus-Dar- 
stellung 

2170 — 2180 = Unterroutine für 
fünf neue Karten 

Kommentare und Zusatztafeln 

2200 = Leerstring unten 

2210 = Bedienungsstring von Ende 

2220 = Bedienungsstring von 

COLOR-SET 

2230 = Bedienungsstring von Risiko 

2240 = Rundenhinweis 

2250 = Zusatztafel von CHANCE 

2270 = Bedienungsstring von CHANCE 

2280 = Teieunzslce von HIGH- 


3190 


3200-3280 = 


3290 


2290 — 2300 = Hinweis auf Fehl- 


bedienung 
2310 — 2320 = Zusatztafel für 
BLUE JACK 
2330 = Bedienungsstring für BLUE 
JACK 
2340-2410 = Anfangsmenü 
2430 = Anleitungen 


2440-2600 = Anleitung für COLOR- 
SET 


2610-2810 = Anleitung für CHANCE 
2820-2960 = Onjellunz für HIGH- 


2970-3080 = Anleitung für BLUE 
ACK 


J 
3090-3180 = Anleitung für Risiko 
Pause 
Überschriften 
3210 = COLOR-SET 
3230 = CHANGE 
3250 = HIGH-LOW 
3270 = BLUE JACK 
= Universeller Leerstring 


VARIABLENLISTE 


11 Ba TE Es Te Te 1 TE a 1 


Universelle FOR-NEXT-Variablen 
ASC-Code von G$ 

Aktueller Spieler - 

Tastenfarbe 
Chance-Gewinnzahlkonto 
Farbzuweisung 
Risikozufallszahl 
Risikobegrenzung 

Highscore 

1. Spielsumme bei BLUE JACK 
Kartenwert 

Kartenbegrenzung 

Aktuelle Karte 


Lesen Sie bitte weiter auf Seite 94 
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KASINGO-GLUECKSSFIERIE 


18 rem kasino==================616 
28 rem (p) commodore welt 

38 rem =========================5= 
48 rem (c) by peter bergen 

58 rem 

68 rem 

78 rem basic v3.5 

88 rem c16/116/plus4 

94 rem ========== seen 
188 gosub 3328 

118 vol?:color@,1:dimf(5) :dimk(5): 
dimt(5) :dimsk(4) :dimct( 4) :dimh( 4) 
128 color1,2:po=12:fora=1t04:sk(a) 
=®:nexta:gosub2358 

130 getkeyg$:ag=asc(g$) :scnclr 

148 ifag>52orag<49thengoto138 

158 scenelr:char1,1,22,"anleitung e 
rwuenscht? ( j=ja/n=nein) ":getkeyx$ 
168 ifx$="n"thengoto188 

178 onag-48g0sub2448,2619,2820,297 
1) 

188 color1,2,7:scncelr:char1,1,22," 
":input”wieviel spieler (1-4)";sa 
198 ifsa>4thengato158 

208 gosub191R:sp=6:as=1:rg=1:rb=18 
:b=rnd( -ti) 

218 fora=1t06:sound?,288,2:soundl, 
4088,2:nexta 

228 p=Bd:gosub22B9:gosub224B:color1 
‚7,7:g0sub1968:gosub 1988: gosub2868 
238 onag-48g0t0388,488,87B, 1838 
248 gosub1618 

250 gosub1768:color!1,7,4:gosub 1968 
268 sp=sp+3:as=as+1:ifas=sa+ithena 
s=1:sp=6:rg=rg+] 

278 ifrg=rb+1 thengoto1388 

288 goto21® 

298 rem color-set 

388 pr=2:gosub3218:zb=6:kb=6:t1=12 
:t2=28:t3=1:gosub2128 

318 forkp=1t05:gosub1378:gosub 1398 
:nextkp:gosub2188:ru=1 

328 gosub22BB:gosub2228:gosub149B: 
gosub2289:gosub 1578:t3=1:gosub2128 
338 ifru=ithenru=sru+1:g0t0328 

348 ifg$="3"thenreturn 

350 rem color-set/gewinn 

368 a=1 

378 iffla)<>2thenme=f(a) :goto398 
388 a=satl:ifa<6thengoto37d 

398 a=1 

408 iffla)<>mcandf( a) <>2thengoto25 
[) 

418 a=a+rl:ifa<6thengoto4BB 

428 p=k[1)+kl2)+K(3) +K(4)+k(5) 

438 a=1 

448 iffla)=2thengoto248 

450 a=atl:ifa<6thengoto44B 


<1n> 


<a0> 
<gg> 
<kg> 


<eb> 
<1ln> 


<cc> 


<og> 
<ik> 


<ed> 
<ph> 


<jo> 
<dg> 
<nd> 
<cj? 


<dp> 
<mj?> 
<dj> 
<mn> 


<1n> 
<ke> 


<kb> 
<al> 
<ff> 
<am?> 
<oc> 
<pl> 
<ig> 
<nf> 


<fp> 
<kn> 
<aj> 
<bi> 
<nn> 
<kk> 
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468 
478 


488 pr=2:g0sub3238:t1=12:t2=24:t3= 


p=p+tp:goto248 
rem chance 


1:gosub2128 


498 


ru=1:zb=5:kb=5:g0sub2258:gosub 


1478 


5so@ forkp=1t05:g0sub137@:nextkp:go 


sub2188 


518 
528 


530 ift(a)=1andcw(a)>Bthengosub229 


gosub2278:gosub 1498 
a=1:pr=14 


8:t3=1:gosub2128:g0t0518 


548 


ift(a)=1andew( a) =Bthenwasa:got 


0578 


558 asat!:pr=pr+5:ifa=5thengosub22 


98:g 
568 
578 
588 
) 


598 nexta:color1,6,6:charl,pr,?,rn 


oto51® 

g0t0538 

fora=1t05 
ifk(a)=wathencw( wa) =cw([wa)+tk(a 


$:printusing"##"” ;cw( wa) 


689 ru=srutl:ifru<5Sthengosub1989:t3 


=1:gosub2128:g0t059® 


618 Fora=itod:p=p+cw(a}:nexta:colo 
r1,6,6:char1,18,8,rn$:printusing"# 


#";p 
620 
630 
648 


658 fora=1tozz:char1,27,8,rn$:prin 
tusing”##";a:sound1,8,1:forb=1t048 


:nex 


660 ifp>=zzthengoto248:elsep=®:got 


fora=1to4:cw(a)=@:nexta 
rem zielzahl 
zz=int(rnd( 1) #21) +18 


tb:nexta 


0258 


678 
688 
698 
708 
718 
728 
2,5: 
738 
748 
758 
a) 
768 
$:pr 
778 
788 
798 
820 
818 
2,8: 
828 
838 
848 
a) 


rem kartenueberpruefung 
fora=1t05 

ift(a)=1thenmc=f(a) 

nexta 

a=1 
ift(a)=1andme<>f(a)thensoundl, 
gosub 1498: got0689 
a=a+1:ifa=6thenep=7:g0t0758 
g0t0728 
Fora=1to5:ift(a)=1thenp1=p1+k( 


nexta:color1,6,6:char1,18,7,rn 


intusing"##”;pl:return 
fora=1to5 

ift(a)=1ithenmce=k( a) 

nexta 

a=1 
ift(a)=1andmc<>k(a)thensoundl, 


gosub1499:g0t0778 
a=a+1:ifa=6thenep=7:g0t0848 
goto818 
fora=1t0S:ift(a)=1thenp2=p2+k( 
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8580 nexta:color1,6,6:char1,18,8,rn 
$:printusing"”##";p2:return 

868 rem high-low 

878 pr=2:g0sub3258:t1=16:2=28:t3= 
2:g0sub2128 

888 zb=18:gosub 1478:po=12:forkp=it 
05:gosub137@:nextkp:kp=1 

898 gosub 1998 

988 gosub2288:gosub96B 

918 ift(kp)=1andk(kp-1)<=k(kp)then 
g0oto948 

928 ift(kp)=Bandk(kp-1)>=kK(kp)then 
goto948 

938 gosub1998:g0oto259 

948 ifkp=5thengosub 1998: Fora=1toS: 
p=ptk(a) :nexta:goto249 

958 goto898 

968 po=po+t4:kp=kp+1 

978 getkeyx$ 

988 ifasc(x$)-48=kpandt( kp)=ithent 
(kp) =®:col=3:gosub2168B:g0t0978 

998 ifasc( x$)-48=kpandt( kp) =Bthent 
(kp) =1:c0l=7:gosub2169:g0t0978 
1888 ifasc(x$)=13thenreturn 

1810 g0t0978 

1828 rem blue-jack 

1238 pr=2:g0sub3278 

1048 pj=®:en=8:pr=7:gosub2288:char 
1,1,1,rn$:gosub231@:char1,1,1,rf$: 
gosub2328 

1859 zb=10:gosub 1478: forkp=1t05:go 
sub1378:nextkp:kp=1:po=12 

1268 gosub1998 

10878 p=p+k(kp) :char1,1,1,rn$:gosub 
1288 

1888 gosub2338:po=po+4:kp=kp+1 
1898 getkeyx$ 

1188 ifasc( x$)=13thengoto1138 

1110 ifasc(x$)=19thengoto1188 

1129 goto1898 

1138 gosub 1998 

1148 p=p+k(kp) :charl,1,1,rn$:gosub 
1288 

1158 ifp>17thenp=#:goto25A 

1168 ifkp=Sthengoto1188 

1178 goto1988 

1188 gosub2288 

1198 char1,1,1,rf$:gosub1988:gosub 
2318:gosub128@:pr=8:chari,1,1,rn$: 
gosub2328: jp=p:p=® 

1288 zb=18:gosub1498:forkp=1toS:go 
sub137@:nextkp:kp=1:po=12 

1238 gosub1998:p=p+k(kp) :chari,1,1 
‚rn$:gosub 1288 

1228 ifp>17thengoto2489 

1230 ifp>=jpthenp=®:g0to025® 

1248 ifkp=Sthengoto248 

1258 po=pot4:kp=kp+1 


.<1lm> 


<gp> 
<hk> 


<oi> 
<ij> 
<kb> 


<jd> 


<dc> 
<nk> 


<ce> 
<gh> 
<gp> 
<ji> 


<pa> 


<hi> 
<oe> 
<cc> 
<ng> 
<pi> 


<mk> 


<kj> 
<ok> 


<db> 
<np> 
<ch> 
<pm> 
<en> 
<ab> 
<jp> 


<ek> 
<nl> 
<pl> 
<fe> 
<nh> 


<ch> 
<1j> 


<ng> 
<la> 
<dp> 
<co> 
<ja> 
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1268 fora=1t0588:nexta:g0oto1218 
1278 ifg$="4"thenp=p+k(kp) :char1, 1 
‚i,rn$:gosub 1288 

1288 color1,6,6:char1,26;pr,"":pri 
ntusing"##";p:return 

1298 rem ende 

1388 gosub2868:color1,2,7:char1,13 
‚12,""sprint"e”c39e3$c3$"n"; 

1318 printc3$c3$c3$"d"c3$c3$c3$"e" 
c3$c3$c3$"!":gosub 1870: gasub22AR:g 
osub2218 

1328 getkeyx$ 

1338 ifx$="j"thengoto128 

1348 ifx$="n"thenstop 

1358 g0to1328 

1368 rem zufallszahlen 

1378 kK(lkp)=int(rnd( 1)*zb) :return 
1388 rem zufallsfarben 

1398 col=int(rnd( 1)*4) +1 

1488 ifk(kp)=@thenf(kp)=2:return 
1418 ifcol=ithenf(kp)=3:return 
1428 ifcol=2thenf(kp)=6:return 
1438 ifcol=3thenf(kp)=7:return 
1448 ifcol=4thenf(kp)=8:return 
14580 return 

1468 rem blaue karten 

1478 fora=1t05:f(a)=7:nexta:return 
1488 rem tasten an/aus+tstart 

1498 getkeyx$ 

1588 kp=1:po=12 

151@ ifasclx$) -48=kpandt( kp) =ithen 
t(kp)=®:col=3:gosub2169:g0t01498 
1528 ifasc( x$)-48=kpandt(kp)=dthen 
t(kp)=1:col=7:gosub2168:g0t01498 
1538 kp=kp+1:po=po+4:ifkp<kbthengo 
t0o1518 

1548 ifasc(x$)=13thenreturn 

1558 goto1498 

1568 rem nachziehung 

1578 po=12:furkp=1to5 

1588 ift(kp)=1thengosub 1378: gosub 1 
398:gosub 1998 

1598 po=pot4:nextkp:return 

1688 rem risiko 

1618 so=2B8:pr=p:color1,8,7:fora=1 
6to6step-2 

1628 char1,34,a,rn$:printusing"##4 
#" ;pr ; 

1638 pr=pr*2:nexta:gosub2B88 

1640 gp=15:gosub2998 

1658 gosub2238 

1668 ifgp=5Sthenreturn 

1678 gosub2898:gz=int{rnd( 1)*2) +1 
1688 getx$ 


1698 sound1,so,18 

1780 ifasc(x$)=19thengosub 1838: ret 
urn 

1718 ifasc(x$)=i3andgz=1thenp=p#2: 
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gp=gp-2:50=so+t1M9:goto 1668 


1728 ifasc( x$) =13andgz=2thenp=®:go 
sub 1828:return 

1738 sound1, so+158, 18 

1748 goto1688 

1758 rem punkteanrechnung 

1768 color1,2,6:sklas)=sk(as)+p:ch 
ari1,2,sp+1,rn$:printusing "HHHHHHH" 
‚sk(as) 

1778 fora=1t04 

1788 ifsk(la)>h(ag-48) thenh( ag-48) = 
skla) 
1798 nexta 

1888 color1,2,6:char1,4,19,rn$:pri 
ntusing”#####"” ;hlag-48) :return 
1818 rem sound 

1828 fora=sotoßstep-18:sound1,a,2: 
sound? ,a+188,2:nexta:fora=1t05ßß:n 
exta:return 

1838 fora=s1tosostep2@:sound1,a,5:s 
ound2,so,2:nexta:fora=1tu5A@:nexta 
:return 

1848 restore1858:fora=1to16:readb, 
c:soundl,b,c:nexta:return 

1850 data819,30,784,8,770,20,704,2 
0,685,208,739,20,784,20,7708,20,739, 
20,784,28 

1860 data770,28,810,20,596,28,685, 
28,704,20,704,28 

1878 restore1888:fora=1t07:readb,c 
:soundl,b,c:nexta:return 

1888 data810,30,834,8,810,8,784,8, 
778,28,704,20,7804,28 

1898 rem grafikunterprogramme 

1988 rem grundaufbau 

1918 scnclr:color1,2,7:fora=6t016: 
char1,11,a,rn$+b$+b$+" ":nexta 
1928 sp=6: foras=1tosa:color1,7,4:g 
osub1968:color1,2,6:char1,1,sp+1,r 
n$+b5$+bA$+rf$ 

1938 sp=sp+3:nextas 

1948 color1,7,6: char1,1,18,rn$+"h 
ighscore":color1,2,6:char1,1,19,b5 
$+b4$+rf$:return 

1958 rem spielermarkierung 

1968 chari,1,sp,rn$:printusing"#"; 
as:char!,2,sp,rn$+".spieler"+rf$:r 
eturn 

1978 rem kartendarstellung 

1988 color1,2,5:fora=12t03@step4:f 
orb=1®8to14:char1,a,b, z5$+z5$+z5$:n 
extb:nexta:return 

1998 color1,2,7:char1,po,1@,rn$+b3 
$:char1,po,14,b3$:g0sub3198 

2888 char1,po,11,b3$:char1,po,13,b 
3$:g0sub3198 

2818 char1,po,12,zv$+zv$+zu$:gosub 
3198:char1i,po,12,b3$ 


2028 colort,f(kp) ‚5:char1,po, 12,rn 
$+" - ":g0sub319P 
2838 char1,po,1' 
3$:gosub3198 
2848 char!,po,1 ‚a3d:chir‘,po,14,b 
3$:printc1$c1$c1$c2$c2$;klkp):soun 
d1,18,.2:return 

20858 rem gamblingneuanfang 

2868 fora=6to16step2:color1,8,7:ch 
ar1,34,a,rn$+b4$+rf$:color1,3,4:ch 
arı ,35,a+1,"1t” 

2070 nexta:char1,35,17,b2$:char1,3 
4,18,"8808":return 

2888 color1,3,6:char1,34,18,f1$+"® 
B88"+fo$:return 

2898 color1,3,6:char1,35,gp,rf$+fl 
$+"Tr"+fo$:color1,3,4:char1,35,gp+ 
2 0 

2188 char1,35,17,b2$:return 

2118 rem tastendarstellung 

2128 color1,3,3:fora=titot2step4:f 
orb=18t02@:chari,a,b,rn$+b3$ 

2138 nextb:printc1$c1$c1$c2$;t3:13 
=t3+1:nexta 

2148 fora=1t05:t(a)=®:nexta:return 
21508 rem tasten an/aus 

2168 color1,3,col:forb=18to2@:char 
1,po,b,rn$+b3$:nextb:printc2$c1$c1 
$c1$;kp:return 

2178 rem 5 karten 

2188 po=12:forkp=1t05:g0sub1998:po 
=po+t4:nextkp:return 

21908 rem kommentare und tafeln 
2208 color1,2,6:char1,1,22,rn$+b$+ 
b$+b$+b4$+b4$+rf$:return 

2230 color1,2,6:char1,2,22,rn$+"no 
ch ein spiel? (j=ja / n=nein) "+rf$ 
:return 

2228 color1,2,6:char1,2,22,rn$+"1- 
5 = an/aus, return = start"+rf$:re 
turn 

2230 color1,2,6:char1,2,22,rn$+"cl 
ear home =annahme, return=srisiko": 
return 

2248 color1,2,6:char1,2,2?,rn$:pri 
nt"runde";rg;" von";rb;"runden"rf$ 
:return 

2258 color1,6,6:char1, 12,7,rn$+"1: 
B8":char1,17,7,"2:88":char1,22,7," 
3:08" 

2268 char1,27,7,"4:88":char1,12,8, 
"summe:"+b3$+"ziel :"+b4$+rf$:retu 
m . 

2278 color1,2,6:char1,2,22,rn$+"1- 
4 = chance-wahl, return=start"+rf$ 
:return 

2288 color1,2,6:char1,2,22,rn$:pri 
nt"taste ";kp+t1;"an=>, aus=<, retu 


3%:char!,po,13,b 


<ff> 
<1lp> 
<be> 
<kf> 
<gf> 
<bh> 
<ee> 
<lo> 
<ml> 
<jd> 
<po> 
<ch> 


<ch> 
<1n> 


<oi> 
<kn> 


<be> 


<fj> 


<ad> 


<ke> 


<pp> 


<mk> 


<hl> 


<kn> 


<ai> 


KASINO-GLUECKSSPIELE 


rn=start"”:return 


2298 color1,2,6:char1,2,22,rn$+"bi . 


tte waehlen sie noch einmal!"+rf$ 

2388 sound1,8,58:fora=1t08@9:nexta 
:return 

2318 color1,6,6:char1,12,7," ihre" 
+b2$+"summe :"+b6$:return 

2328 color1,6,6:char1,12,8," jacks 
summe :"+b6$:return 

2338 color1,2,6:char1,1,22,rn$+"re 
turn=naechste karte, clr home=genu 

g"+rf$:return 

2348 rem anfangsmenue 

2358 senelr:color4,1:b=1:color1,?2, 

7:fora=28to06step-1:chari,a,b,rn$+"” 

kasino"+rf$:b=b+1 

2368 nexta:gosub 1848 

2378 pr=11:gosub3298:pr=12:g0sub32 
18:pr=13:gosub3290:pr=14:gosub3238 
:pr=15:g0sub3298 

2380 pr=16:gosub3258:pr=17:gosub32 

98:pr=18:gosub3278:pr=19:gosub3299 
2398 color1,2,7:char1,2,1,"bitte w 

aehlen sie:" 

2408 char1,1,12,"1 = ":char1,1,14, 
"2 = ":char1,1,16,"3 = ":charl,1,1 

B8,”4 = " 

2418 return 

2428 goto2428 

2438 rem anleitungen 

2448 scnclr:color1,3,7:color4,3,6 

2458 printchr$( 14) 

2468 printc4$c4$c3$"Innerhalb drei 

er Ziehungen sollen Sie" 

2478 print"erreichen, dass alle 5 

Karten die selbe" 

2488 print"Farbe vorweisen." 

2498 print"Die Karten haben Werte 
von 8-5 und die" 

2588 print"Farben: Gelb,Blau,Gruen 
‚Rot und Grau." 

2518 print"Graue Karten mit >®< ge 
lten als Ersatz” 

2528 print"fuer fehlende Farben.” 
2538 print"”Zwischen jeder Ziehung 
koennen Sie mit" 

2548 print"den Tasten 1-5 entschei 
den, welche Karte" 

2558 print"veraendert werden soll, 
wonach die Zieh-" 

2568 print"ung mit >RETURN< ausgel 

oest wird." 

2578 print"Bei Erreichen des Spiel 
ziels gilt die" 

2588 print"Summe der 5 Kartenwerte 
als Gewinn." 

2598 print"Sollte keine >A< dabeis 

ein, wird Ihr" 


<oc> 


<ne> 
<cc> 


<la> 
<bo> 


<1g> 
<am> 


<fb> 
<gb> 
<jm> 
<hj> 
<pg> 
<kl> 
<he> 
<co> 
<ij> 
<ec> 
<bj> 


<mh> 


<gl> 
<ek> 


<ga> 
<ib> 


<pl> 
<lg> 


<bo> 
<ak> 
<mo> 
<cb> 
<ic> 
<fe> 


<mp> 
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2688 print"Gewinn verdoppelt.":get 

keyx$:g0t03098 

2618 scnclr:color1,8,7:color4,8,6 

2628 printchr$( 14) 

2638 printc4$c4$c3$"Die Kartenwert 

e von 1-4 sollen in" 

2648 print"4 Ziehungen den Gewinnz 

ahlen oberhalb" 

2658 print"der Karten zugeordnet w 
erden." 

2668 print"Hierzu koennen Sie sich 
nach jeder Zieh-"” 

2678 print"ung aller 5 Karten eine 
Gewinnzahl durch” 

2688 print"die Tasten 1-4 auswaehl 
en." 

2698 print"Nach >RETURN< wird jede 
r Kartenwert der” 

2788 print"dieser Gewinnzahl entsp 
richt auf das ne-" 

2718 print"benstehende Konto der 6 

ewinnzahl ge-." 

2728 print"bucht. Es duerfen nur 6 

ewinnzahlen ge-" 

2738 print"waehlt werden, deren Ko 
nto noch auf >99<” 

2748 print"steht." 

2758 print"Nach Ablauf der 4 Ziehu 

ngen bilden alle" 

2768 print"Konten eine Summe, die 

mit einer Zu-" 

2778 print"fallszahl zwischen 18 u 
nd 38; dem sog." 

2788 print">Ziel< verglichen wird. 
Ist das Ziel" 

2790 print"niedriger oder gleich, 
so gilt die" 

2888 print"Summe als gewannen.” 
2818 getkeyx$:goto3898 

2828 scnclr:color1,6,7:color4,6,6 
2838 printchr$( 14) 

2848 printc4$c4$c3$"Es finden 5 Zi 
ehungen einzelner Karten" 

2858 print"mit den Werten 8-9 stat 
t. Nach jeder" 

2868 print"Ziehung muessen Sie mit 
der angezeigten" 

2878 print"Taste entscheiden, ob d 
er nachfolgende" 

2888 print"Kartenwert hoeher (Tast 
e an), oder nie-" 

2898 print"driger (Taste aus) als 

der vorhergehende” 

2988 print"Kartenwert ist.“ 

2918 print"Sollte Ihr Tip falsch s 
ein, gilt das" 

2928 print”"Spiel als verloren. Bei 
Gleichstand wird" 


<ph> 
<hl> 
<ki> 
<ah> 
<1p> 
<ap> 
<dm> 
<am> 
<ch> 
<bf> 
<ih> 
<ha> 
<nb> 


<fo> 
<mm> 


<ph> 
<fe> 
<ah> 
<kl> 
<mj?> 
<1ld> 
<an> 


<bd> 
<hl> 


<pj> 
<id> 
<db> 
<ep> 
<ob> 


<dl> 
<ci> 


<hh> 


<oi> 


KFAGINO—-GIULECKSSPIELE 


2938 print"zu Ihren Gunsten entsch TERN <io> 
ieden." <pi> 3268 return <bp> 
2948 print"Bei richtiger Entscheid 3270 color4,7,6:color1,7,6:chart, 1 
ung bilden die" <ap> ‚Pr,rn$+"SEEHHFFFFFHFHE blue-jack $ 
2958 print"Kartenwerte eine Gewinn SEFEFHFEFFTFTT" FH <bd> 
summe .” <ml> 3288 return _ <eh> 
2968 getkeyx$:gato3298 <je> 3298 charl,1,pr,b$+b$+b$+b6$:retur 

2978 scnclr:color1,7,7:color4,7,6 <dm> n &dos 
2988 printchr$( 14) <cc> 3388 rem nachspann =============== «ej> 
2998 printc4$c4$c3$"Versuchen Sie 3318 rem * farbcodes/steuercodes * <ja> 
durch Nachziehen ([ RETURN” <1lm> 3328 e4$=chr$( 817) :rn$=chr$( 818) <gh> 
3889@ print"druecken) von max.4 Kar 3338 e3$=chr$( 029) :F1$=chr$( 138) <1in> 
ten der Werte 9-9" <eg> 3348 fo$=chr$( 132) :c2$=chr$( 145) <ac> 
3810 print"”so nah wie moeglich an 3358 rf$=chr$( 146) :c1$=chr$( 157) <bce> 
die Zahl >17< zu" <di> 3368 rem *#** zeichensalz/graphik * <fg> 
3228 print"kommen, ohne diesen Wer 3378 25$=chr$( 166) :zu$=chr$( 192) <dk> 
t zu veberstei-" <hl> 3388 b$=chr$( 32) :b2$=b$+H$ <hi> 
3838 print"gen." <kj> 3398 b3$=b2$+b$:b4$=h3$+n$ <of> 
3848 print"Mit der >CLEAR-HOME<-Ta 3408 b$=b4$+bA$+h2$: relurn <ca> 
ste koennen Sie" <dj> 3418 rem ============22-02 22200000 <pk> 
3858 print"”Ihr Spiel abbrechen, wo 3420 rem 12277 bytes memory <le> 
nach >JACK< gegen" <ei> 3438 rem 19927 bytes program <al> 
3869 print"Sie spielt. Sie haben g 3448 rem 80245 bytes variahles <kn> 
ewonnen, wenn” <jb> 3458 rem 992807 bytes arrays <if> 
3878 print"Ihre Spielsumme 17 nich 34690 rem 89378 bytes strings <ki> 
t uvebersteigt und" <1d> 3478 ren 09528 bytes free (®) <1j> 
38842 print"hoeher als >JACKS< Summ 3480 rem ===========2========2==== ckp> 
e ist.":getkeyx$ <il> 

3898 printchr$f 14) <lg> 

3188 printc4$"Sie haben danach die 

Moeglichkeit Ihren" <cj? 


3118 print"Gewinn durch die Risiko im 
funktion zu ris-"” <fg> St 


3128 print"kieren oder zu vervielf 


achen. Hierbei" <1k> 
3138 print"koennen Sie die Zahl un 
terhalb des roten” <fi> Fortsetzung von Seite 89 
3148 print"Pfeils annemen (CLEAR-H MC = Farbmarkierung 
OME-Taste), oder" <In> P = Aktuelle Punktzahl 
3158 print"die Zahl ueber dem Pfei Pi = Zwischensumme bei CHANCE 
1 mit Risiko (RE-" <ah> P2 = Zwischensumme bei CHANCE 
3168 print"TURN-Taste) gewinnen.” <ff> PJ = Punktezahl für JACK bei BLUE JACK 
: “ 5 PO = Kartenposition 
3178 printc4$"Das Spiel endet nach PR = Universelle Printposition 
18 Runden.” <md> RB: = Rundenbegrenzung (steht auf 10, kann 
3188 getkeyx$:printchr$( 142) :retur beliebig verändert werden) 
n <db> RG = Große Runde 
3198 fort=1t038:nextt:return <dj> RP = Risikoposition 
& RU = Kleine Runde 
3288 rem ueberschriften <an> SA = Spieleranzahl 
3218 color4,3,6:color1,3,6:charl,1 sK = Spielerkonto 
‚Pr,rn$g+t"##sssaseasane color-set *# so = Sound-Höhenfestlegung 
SERSRRRRRERTETLEE <ff> = = em 
m) = Tastennummer 
nn ee &.6?colari B.6rchari 4 Tl = 1. Schleifenvariable für Tastendarstellung 
ee er nn ee ee T2 = 2. Schleifenvariable für Tastendarstellung 
‚Pr,en$t HHRHHEHRNHRHHHH chance HH T3 = Tatenaufschrift 
BRRHRERHHRHRT + TS . <gp> WA = Wahl bei CHANCE 
3248 return <ph> ZB = Zufallsbegrenzung 
3258 color4,6,6:color1,6,6:charl,1 zz = ee ge 
‚„Pr,rn$+"+HrHH rt HH HH HH + high-low + x$ = eier KEY$ m! 


INTERPOL—-BESCHATTUNG 


Im Einstellungstest bei Interpol haben Sie eine harte 
Nuß zu knacken: Sie müssen den Ganoven 
Theo Goldini beschatten. Dies ist aber nicht einfach. 


Zu jedem Bild dieses Text-Adventures ist die richtige 
Antwort, bestehend aus den Buchstaben A, B oder C, 
zu finden. Eine einzige falsche Antwort wirft Sie un- 
weigerlich aus dem Rennen. Probieren Sie es von 
Neuem, so müssen Sie plötzlich feststellen, daß jetzt 
andere Antworten richtig sind. 

Glücklicherweise herrscht hier nicht blindlings der 
Zufall, sondern ein sich nach einer gewissen Anzahl 
von Spielen ständig’wiederholendes Schema. 


Ein Tip sei Ihnen zur Lösungsfindung noch gegeben: 
Nach je fünf Spielen wiederholt sich das Schema. Es 
gilt also nur noch die richtigen Lösungsbuchstaben 
herauszufinden und in die obige Tabelle einzutragen. 
Haben Sie diese kriminalistische Kleinarbeit vollbracht, 
sind Sie ein Meisterdetektiv, dem kein Theo Goldini 
mehr etwas vormachen kann. OD 


interpol 
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INTERPOL-BESCHATTUNG 


1A rem interpal========------=-==016 
?@ rem (p} commodore welt team 


36 van. nennen 
48 rem (c) by peter katzemich 


58 rem berg. gladbach 


68 rem 
78 rem basic v3.5 
88 rem c16/116/plus4 


D gosub 2218 
er printchr$( 14) :poke1351, 128:e$- 
d$+f1$+">>> PRESS"+s32$+" SPACE <<< 
"+fo 
128 N ER EN 
=rf$+d$+rn$+t"Punkte:":1=@:pu=ß:be= 
25009: 1v=50008 
138 color4,1:color®,1:color1,2 2 
148 printaa$;1;b$;pu:char1,11,6, * 
HHHRRSIHRSEISHSRNHRREN" 

? 1,11,7,"8"+d$+b4$+b3$+"*" 
= ar IN T"+s2$+"E"+s 
2$+"A"+52$+"P"+s2$+"0"+s2$+"L *"” 
178 char1,11,9,"*"+d$+b4$+b3$+"*": 
chari, 11,10, "rrmemeneennne" 
188 char1,17,14,"WAITTEN":char1,28 
‚16,"BY":char1,14,18,"H.P. KATZEMI 
CH" 

198 char1,11,23,f1$+">>> PRESS"+s2 
$+s2$+"SPACE <<<"+fo$:getkeya$:ifa 
$=" "then288:else198 

288 printc1$c4$c4$c4$" "rn$" I"s2$ 
"N"s2$"T"s2$"E"s2$"R"s2$"P"s2$"0"s 
2$"L : "rf$ 

218 printc4$cA$” Sie haben sich be 
i Interpol um":printc4$"” einen Arb 
eitsplatz beworben." 

220 printc4$" als "Einstellungstes 
t’ muessen Sie" 

238 printc4$" den Ganoven Theo Gol 
dini beschatten.” 

248 printc4$"” Dies ist äber nicht 
einfach!" 

258 printc4$c4$" Viel Glueck!!!"le 
ft$(qd$,4) :printe$ 

268 getkeya$:ifa$=" "then288:else2 
68 


278 restore 

288 readl:ifl=Athen279:else38# 

298 data1,2,3,4,5,8 

308 color4,6:color®,6:color1,1 

318 printaa$;1;b$;pu j 
328 printleft$(gd$,4)" Theo Goldin 


i faehrt mit dem Fahrrad" 

339 printc4$" eine Strasse in Neap 
el entlang.” 

348 printc4$c4$c4$” "rn$" Wie woll 
en sie Theo verfolgen? "rf$ 

358 printc4$b5$"A. mit Ihrem priva 


<ah> 
zho> 
ng> 
<kf> 
<kh> 
<ah> 
<nl> 
<ki> 
<ijg> 
<ea> 


<]lm> 


<ba> 


<mf> 


<ic> 
<gh> 


<ena> 


<ma> 


<lg> 


<fn> 


<fd> 
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ten PKW" 


360 printc4$b5$"B. mit dem Polizei 
PKW":printc4$b5$"C. mit dem Fahrr 
ad" 

3780 getkeya$:ifaß="a"ora$="b"ora$= 
"c"then380:else37® 

388 ifa$=mid$l "acabe"”,1,1)then429 
398 senelr:char1,1,1@,"Sie haben s 
ich zu auffaellig" 

488 char1,1,12,”benommen. Theo hat 
Sie entdeckt und":char1,1,14,"abg 
eschuettelt.* 

410 g0t02128 

428 color4,1:color®, 1:color1,6:pu= 
18@:printaa$;1;b$;pu 

438 printc4$c4$c4$" Theo trifft si 
ch mit einigen" 

448 printc4$" Ganoven in einer Kne 
ipe, um einen" 

458 printc4$” Bankraub vorzubereit 
en.":printc4$c4$" "rn$" Wie verhal 
ten Sie sich? "rf$ 

468 printc4$b5$"A. gehen Sie in di 
e Kneipe, um den"”:printc4$b4$b4A$"Pp 
lan zu erfahren" 

478 printc4$b5$"B. alamieren Sie d 
ie Polizei, um" 

488 printc4$b4$b4$"die Ganoven zu 
verhaften" 

498 printc4$b5$"C. Sie warten drau 
ssen" 

SBB getkeya$:ifa$="a"ora$="b"orag= 
"c"then51@:else588 

510 ifa$=mid$( "cbcab",1,1)then548 

528 scnelr:char1,1,12,"Theo ist mi 
t den Ganoven durch" 

530 char1,1,14,"die Hintertuer der 
Kneipe abgehauen.":goto2128 

548 color4,6:color@,6:color1,1:pu= 
pu+15@:printaa$;1;b$;pu 

S5@ printc4$c4$cA$" Theo und die GB 

anoven verlassen die" 

56@ printc4$” Kneipe. Sie gehen ih 

nen nach. In" 

578 printc4$" einer dunklen Gasse 

kommen die Ganoven" 

588 printc4$" auf Sie zu und bedro 

hen Sie.":printc4$c4$" "rn$" Was m 

achen Sie nun? "rf$ 

598 printc4$b5S$"A. Sie erschiessen 

die Ganoven" 

688 printc4$b5$"B. Sie verlassen s 

ich auf Ihre"”:printc4$b4$b4$"Karat 

e Kenntnisse" 

618 printc4$b5$"C. Sie laufen schn 

ell weg" 

628 getkeya$:ifa$="a"ora$="b"orag= 

"c"then63@:else628 


<00> 


INTERPOL-—-BESCHATTUNG 


63% ifa$=mid$( "babba”,1,1)then789 
640 ifa$="c"then68B 

658 senelr:char1,1,18,"Ihr Plan di 
e Ganoven zu erledigen" 

66% char1,1,12,"ist nicht geglueck 
t. Die Ganoven"” 

678 char1,1,14,"haben Sie erschoss 
en.":g0t01828 

688 scncelr:char1,1,12,"Die Ganoven 
haben Sie in den Ruecken":char1, 1 
‚14,"geschossen." 

698 g0to1828 

788 color4,1:color®, 1:color1,6:pu= 
pu+255:printaa$;1;b$;pu 

718 printc4$c4$c4$" Durch die Ause 
inandersetzung mit" 

728 printc4$" den Ganoven haben $j 
e Theo" 

730 printc4$" aus den Augen verlor 
en.":printc4$c4$" "rn$; 

748 print" Wo werden Sie Theo nun 
suchen? "rf$ 

758 printc4$b5$”"A. In der Kneipe*: 
printc4$b4$b4$" "ZUM"S2$"SCHRAEGEN" 
s2$"VOGEL.’" 

768 printc4$b5$"B. In der Bar am B 

ahnhof":printc4$b5$"C. In Theo’s W 

ohnung” 

778 printc4$b5$"D. Im Spielcasino 
"ROYAL ’" 

788 getkeya$:ifa$="a"ora$="b"ora$= 
"c"ora$="d"then?79@:else788 

798 ifa$=mid$( "abdcd"”,1,1)then818 

888 scnclr:char1,1,12,"Sie haben T 

heo Goldini nicht gefunden.":goto2 
120 

B18 color4,6:color®,6:color1,1:pu= 

pu+245:printaa$;1;b$;pu 

829 printc4$c4$c4$"” Sie haben Theo 
nach langer Sucherei" 

838 printcA$" wiedergefunden. Dadu 

rch sind Sie sehr" 

848 printc4$"” muede und muessen si 

ch einen Tag":printc4$" ausruhen.” 

858 printc4$c4$” "rn$"” Wem erteile 

n Sie den Auftrag, Theo "rf$ 

868 printcA4$"” "rn$” fuer einen Tag 
zu beschatten? "rf$ 

878 printc4$h5$"A. Ihrem Freund"”:p 
rintc4$b5$"B. Einem Privatdedektiv 
888 printc4$b5$”"C. Einem Poliziste 

n":printc4$b5$"D. Ihrem Bruder" 

898 getkeya$:ifa$="a"ora$="b"ora$= 
"c"ora$="d"then9%M:else898 

988 ifa$=mid$l "cabed",1,1)then938 

918 scnelr:chart,1,11,"Theo Goldin 
i hat Ihren Kollegen" 


928 char1,1,13,"abgeschuettelt.":g 
002129 

938 color4,1:colord, 1:colori,6:pu= 
pu+259:printaa$;1;b$;pu 

948 printc4$" Am nechsten Morgen f 
olgen Sie Theo" 

958 printc4$" auf den Flughafen vo 
n Neapel." 

968 printc4$" Dort kauft er ein Ti 

cket nach Paris" 

978 printc4$" von 2908 DM. Leider 
haben Sie" 

988 printc4$"” nur noch 988 DM zur 
Verfuegung!” 

998 printc4$c4$" "rn$"” Wie verhalt 
en Sie sich? "rf$ 

1880 printc4$b5$"A. Sie fahren mit 
dem Auto” 

1818 printc4$b4$bA4$"nach Paris":pr 
intc4$b5$"B. Sie fahren mit dem Zu 
10828 printc4$b5$"C. Sie verlangen 
einen Gehalts-":printc4$b4$b4$"vor 
schuss" 

1938 getkeya$:ifa$="a"ora$="b"ora$ 

="c"then1848:else 1438 

1848 ifa$=mid$( "becaa",1,1)then197 

8 

1858 senclr:char1,1,11,"Am Flughaf 

en ist Ihnen ihre Geldboerse" 

1868 chari,1,13,"gestohlen worden. 
":g0t02128 

1878 color4,6:color®@,6:colori,1:pu 

=pu+155:printaa$;1;b$;pu 

1888 printc4$c4$c4$" Theo trifft s 
ich in Paris mit einigen" 

1898 printc4$" Ganoven. Dort wolle 

n sie eine Bank"”:printc4$" ausraub 

en." 

1188 printc4$c4$" "rn$"Welche Moeg 
lichkeit werden Sie waehlen?"rf$ 
111A printc4$b5$"A. Sie benachrich 
tigen die Polizei" 

1128 printc4$b5$"B. Sie benachrich 
tigen die Bank" 

113® printc4$b5$”C. Sie versuchen 
Theo auf frischer" :printc4$b4$bA$" 
Tat zu ertappen"” 

1148 getkeya$:ifaß="a"ora$="b"ora$ 
="c"then115B:else1148 

1158 ifa$=mid$( "ababb",1,1)then118 
Li) 

1168 scnelr:char1,1,11,"Bei einem 
Schusswechsel sind Sie" 

1178 char1,1,13,"getoetet worden." 
:g0t01828 

1188 color4,1:color®,1:color1,6:pu 
=pu+545:printaa$;1;b$;pu 


INTERPOL-BESCHATTUNG 


1198 printc4$c4$c4$" Theo flieht a 
uf ein Rundfahrten” 

128@ printc4$"” Schiff. Sie kommen 

leider zu” 

1218 printc4$"” spaet, das Schiff f 
aehrt schon auf":printc4$" der Sei 


1228 printc4$c4$"” "rn$" Was werden 
Sie jetzt unternehmen? "rf$ 

1238 printc4$b5$"A. Sie fahren mit 
dem Auto nach" 
1248 printc4$b5$"B. Sie warten auf 
das nechste":printc4$bA$bA$"Schif 


1258 printc4A$b5$"”C. Sie fliegen mi 

t dem Polizei" :printc4$b4$b4$”Heli 

kopter hinterher" 

1268 getkeya$:ifa$="a"ora$="b"ora$ 

="c"then1278:else1268 

1278 ifa$=mid$( "bebac",1,1)then129 

® 

1288 scnclr:char1,1,12,"Sie haben 

das falsche Schiff verfolgt.":goto 

2128 

1298 color4,6:color®,6:color1,1:pu 

=pu+t355:printaa$;1;b$;pu 

1388 printc4$c4$c4$" Theo’s Spur f 

uehrt vom Schiff zu" 

1319 printc4$" einer grossen Villa 
Die Villa ist” 

1328 printc4$"” umgeben von einer h 

ohen Mauer." 

1338 printc4$c4$" "“rn$” Als was we 

rden Sie sich verkleiden, "rf$ 

1348 printc4$" "rn$" um in die Vil 

la einzudringen "rf$ 

1358 printc4$b5$"A. Postbote":prin 

tc4$b5$”"B. Schornsteinfeger" 

1368 printc4$b5$"C. Auto Haendler" 

:printc4$b5$"D. Party Servic" 

1370 getkeya$:ifa$=-"a"ora$="b"ora$ 

="c"ora$="d"then1380:else1378 

1388 ifa$=mid$( "cdabd”,1,1)then148 

& 

1398 scnelr:char1,1,12,"Die Bluthu 

nde haben Sie getoetet.":goto1828 

1480 color4,1:color®,1:colori1,6:pu 

=pu+t445:printaa$;1;b$;pu 

1414 printc4$c4$"” In der Villa erf 

ahren Sie, dass Theo” 

1428 printc4$" 5 kg Heroin ueber d 

ie Grenze" 

1438 printc4$"” nach Deutschland sc 

hmuggeln soll." 

1448 printc4$" Sie wollen Theo auf 
der Fahrt" 

1458 printc4$" nach Deutschland mi 

t dem Auto folgen." 


<fj> 


<ha> 


<bg> 
<pn> 


<fo> 


<ea> 


<af> 
<hg> 


<ba> 


<ei> 
<hp> 
<mp> 
<lk> 
<hk> 
<pp> 
<pd> 
<bm> 
<ik> 
<en> 
<ed> 
<ge> 
<ph> 
<ff> 
<li> 
<co> 
<pm> 


<il> 


1468 printc4$c4$" "rn$" Mit welche 

m Wagen werden Sie fahren? "rf$ 
1478 printc4$b5$"A. VW Golf GTI" 
1488 printcA$b5$"”B. OPEL Omega":pr 
intc4$b5$"C. FORD Scorpio” :printcd 
$b5$"D. BMW 525i” 

1498 getkeya$:ifa$="a"ora$="b"ora$ 
="c"ora$="d"then1589:else1490 

1508 ifa$=mid$( "dabed",1,1)then154 
12) 

1518 scnelr:char1,4,9,"Auf der Aut 
obahn ist Ihnen der" 

1528 char1,4,11,"Reifen geplatzt. 
Sie haben" 

1530 char1,4,13,"keinen Reserverei 
fen bei.":g0t02128 

1548 color4,6:color@,6:color1,1:pu 
=put358:printas$;1;b$;pu 

1558 printc4$c4$c4$" Theo faehrt a 
uf ein abgesperrtes"” 

1568 printc4$" Grundstueck. Wo ein 
e unbenutzte,"” 

1578 printc4$" baufaellige Firma s 
teht.” 

1588 printc4$"” Theo geht auf die F 
abrikationshalle zu." 

1598 printc4$c4$" "rn$" Wie bekomm 
en Sie heraus was Theo "rf$ 

1688 printc4$" "rn$" dort treibt? 
"rf$ 

1618 printc4$b5$"A. Sie klettern a 
uf ein Geruest" 
1628 printc4$b5$"B. 
uf einige Faesser" 
1638 printc4$b5$"C. 
Treppe hoch" 

1640 getkeya$:ifa$=-"a"ora$="b"ora$ 
="c"then1658:else1648 

1658 ifa$=mid$l "abcab",1,1)then168 
8 

1668 senclr:char1,3,9,"In dem bauf 
aelligen Gebauede ist" 

1678 char1,3,11,"Thnen ein Holzbal 
ke auf den Kopf":char1,3,13,"gefal 
len.":g0t01828 

1688 color4,1:color@, 1:color1,6:pu 
=put258:printaa$;1;b$;pu 

1698 printc4$c4$c4$" Theo uebergib 
t die 5 kg Heroin einigen" 

1788 printc4$” Ganoven. Er erhaelt 
einen neuen" 

1718 printc4$"” Auftrag. Theo soll 

einen Herrn Walter" 

1720 printc4$" Fackelmann ermorden 
.":printc4$cA4$" "rn$" Was machen 5 
ie nun? "rf$ 

1738 printc4$b5$"A. Sie benachrich 
tigen Herrn":printc4$b4$b4$"Fackel 


Sie klettern a 


Sie gehen die 


<em> 
<ba> 


<di> 
<af> 
<dk> 
<ea> 
<be> 
<hce> 
<fm> 
<af> 
<bg> 
<ko> 
<ji> 
<eb> 
<ao> 
<ia> 
<ed> 
<bj> 
<kg> 
<gh> 


<di> 


<fi> 
<of> 
<ae> 
<bh> 


<ba> 


<oc> 


INTERPOL—-BESCHATTUNG 


mann" 
1748 printc4$b5$"B. Sie beobachten 
Herrn Fackelmann" 

1758 printc4$b5$"C. Sie beobachten 
Theo Goldini":printc4$bA$b4$ "weit 
er" 

1768 getkeya$:ifaß="a"ora$="b"ora$ 
="ce"then1778:else1768 

1778 ifa$=mid$( "cbaac",1,1)then18® 
d 

1780 scnclr:char1,4,9,"Die Ganoven 
haben Sie in der" 

1798 char1,4,11,"Fabrikationshalle 
entdeckt und"”:char1,4,13,"erschos 
sen."”:g0t01828 

180 color4,6:color®,6:culor1,1:pu 

=pu+r595 

1818 g0t01928 

1828 forx=Bto3AMd:nextx:ar=pu*6.13 

5 

1838 printc1$c4$c4$cA$" Leider sin 

d Sie bei Ihrem" 

1848 printc4A$" "Einstellungstest 

getoetet worden." 

1858 printc4$"” Ihre Angehoerigen w 

erden folgende" 

1868 printc4$"” Betraege erhalten:" 

left$(gqd$,4) 

1878 printusing" AAHKHHHHRHHRBER 

#" ;"Lebensversicherung”, lv 

1888 printusing" HAHHRHHHH HEHE H 

#"; "Arbeitslohn" ‚ar:g=ar+lv 

1898 print” 


1900 printusing” ARE A 

#" "Gesamt" ‚g:printc4$c4$cA$;e$ 
1918 getkeya$:ifaß=" "thent1ß:else 
1918 

1928 ar=pu*8.715:5=pu*1.935:c0lor4 
‚1:color@®,1:color1,3 

1930 printcl$left$(gd$,5)" zas8r2% 

Reese. 
0oke3313,42 

1948 poke3358,42:printc4g" #"H6$"H 

erzlichen Glueckwunsch!"b6$"*":pok 

e3393,42:poke3438,42 

1950 printc4$” * Sie haben Ihren ’ 

Einstellungstest’ *":poke3473,42:p 

oke3518,42 j 

1968 printc4$" *"b5$"erfolgreich a 

bgeschlossen. "b5$"*":poke3553,42:p 

oke3598,42 

1978 printc4$" *"b2$"Sie bekommen 

einen Arbeitsplatz"b3$"*":poke3633 
‚42:poke3679,42 

1980 printc4$" #"d$” bei Interpol. 
"d$" *":poke3713,42:poke3758,42 
1998 printc4$" 


SREnKNNGEHgEeNugEEE 


<la> 


<ji> 


<ch> 
<kh> 
<mn> 


<pl1> 


<oe> 


<dk> 
<1lo> 


<fj> 
<mj> 
<ko> 
<db> 
<jd> 
<1lm> 
<an> 
<fh> 
<oi> 
<ah> 


<ho> 


RC > 


<ho> 


<hg> 


<me> 
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AÄARFF@FÜTUN 


$,4);e$ 

2008 getkeya$:ifa$=" "then2Biß:els 
e2908 E 

2818 printc1$c4$" Da Sie Theo Gold 
ini beschattet haben" 

2828 printc4$"” erhalten Sie folgen 
de Betraege:":printc4$ 

2838 printusingb5F+"ArHHHHHH. HR" ;" 
Arbeitslohn”,ar 

2848 printusingb5$+"AHHHrHHHH HH" ;" 
Spesen",s 

2n5B printusingb5$+" ArHHHHHH. HH" ;" 
Belohnung",be 


RARAnAn 


:printleft$(gd 


2878 y-ar+s+be:printusingbS$+"AAyy 

HHHH HH" ;"Gesamt”,y 

2888 printleft$(qgd$,4)" Nun haben 

Sie erst einmal 4 Wochen" 

2898 printc4$" Urlaub. Danach hole 

n Sie bitte bei" 

2180 printc4$" Interpol einen neue 

n Auftrag ab."c4$c4$:printe$ 

2118 getkeya$:ifa$=" "thentiß:else 

2118 

2128 forx=Bto3Bßß:nextx:printcl$cA 

$c4$"” Bedauerlicher weise muss ich 
Ihnen” 

2138 printc4$"” mitteilen das Sie f 

ver einen":printc4$" Arbeitsplatz 

bei Interpol nicht" 

2148 printc4$" geeignet sind. Fuer 
Ihre Muehe werden" 

2158 printc4$" folgende Betraege a 
uf Ihrem Konto"”:printc4$" gutgesch 
rieben:"c4$c4$ 

2168 ar=pu*5.737:printusingb5$+"## 
RHRHHH HR" ;" Arbeitslohn” ,ar 

2178 s=pu*1.715:printusingb5$+"#4R 

HRHBH HH"; "Spesen",s 

2188 printb5$"-------------------- 
aa "ıgsarts 

2198 printusingbS$+"HHHHHHHEE ARE" ;" 

Gesamt” ,‚g:printleft$(gd$,4) ;e$ 
2288 getkeya$:ifa$=" "thentl1ß:else 

2288 
2218 

2228 
2238 

2248 

2258 

2268 

2278 

2288 
2298 

2300 

2318 


rem nachspann 
rem * farbcodes/steuercodes * 
c4$=chr${( 817) :rn$=chr$( 918) 
f1$=chr$( 138) :Fo$=chr$( 132) 
rf$=chr$( 146) :c1$=chr$( 147) 
rem ##* zeichensatz/graphik * 
s2$=chr$( 168) :d$=chr$( 32) 

rem = zeichenfolgen * 
for q=1 to 48 

qd$=qd$+c4$ 

next q 


annenn 


<no> 


TNTERPOIL-BESCHATTUNG 


2328 b2$=d$+d$:b3$=b2$+d$ <ka> 
2338 b4$=b3$+d$:b65$=b4$+d$ <hn> 
234 b6$=b5$+d$:d$=b5$+b5$:return <np> 
2358 rem ========================= <ch> 
2368 rem 12277 bytes memory <me> 


2378 rem 18889 bytes program <en> 
2388 rem B8B161 bytes variables <db> 
2398 rem BBBBB bytes arrays <ei> 
2408 rem 80495 bytes strings <gi> 
2418 rem B8812 bytes free (®) <ni> 
2428 rem BD ln ne an = <pj? 


Merkur 


Das Programm simuliert einen Geldspielautomaten. 
Nach der Titelmelodie und dem Aufbau des Titelbil- 
des werden Sie gefragt, ob Sie eine Spielanleitung 
wünschen. Bestätigen Sie dies mit J für-Ja oder N für 
Nein. Bei ‚Ja‘ wird die Spielanleitung ausgegeben. 
Nachdem diese vollständig gelesen wurde, fragt Sie 
das Programm, ob Sie alles verstanden haben. Wenn 
Sie nicht mit J für Ja antworten, beginnt die Anlei- 
tung wieder von vorne. Nachdem Sie also die Anlei- 
tung beendet haben, beginnt das Spiel. Hier müssen 
Sie ca. 30 Sekunden warten, da der Computer die 
Bildschirmdaten berechnet. Dann wird die Spielauto- 
mat-Grafik aufgebaut. Zuerst müssen Sie nun über 
Ihr Startkapital entscheiden. Zur Auswahl stehen ent- 
weder tünt oder zehn Mark. Wählen Sie den Betrag 
durch Betätigen der Taste 1 und 2 aus. Auf dem Bild 
des Spielautomaten sehen Sie drei Walzen. Zur Bedie- 
nung des Automaten stehen Ihnen nun folgende Mög- 
lichkeiten zur Verfügung, die dem Original gleichen: 
1. Die linke Walze läßt sich pro Spiel einmal neu star- 
ten, falls Ihnen der Inhalt nicht gefällt. Hierfür muß 
die Taste Fl gedrückt werden, solange am unteren 
Bildschirmrand „STARTEN“ angezeigt wird. 

2. Die beiden rechten Walzen können Sie vorzeitig 


stoppen, wenn Sie die Taste F3 betätigen, solange das 


Feld „STOPPEN“ aufleuchtet. 

Folgende Gewinnmöglichkeiten gibt es: 

1. Ist in allen drei Walzen einmal der selbe Wert ent- 
halten, so haben Sie einen Gewinn i.- der Höhe dieses 


Alle, die ihr Geld nicht aus 
dem Fenster werfen und 
trotzdem den Nervenkitzel 
eines Geldautomatenspiels 
erleben wollen, sind mit dem 
Spiel Merkur am besten be- 
dient. Hier können Sie die 
Chancen eines Gewinns sol- 
cher Automaten simulieren. 


Wertes. Das Programm fragt dabei ab, ob Sie auf Risi- 
ko spielen wollen. Beantworten Sie mit N für Nein, 
wird der Gewinn übernommen. Bei J für Ja kommen 
Sie in die Risikoausspielung, bei der Sie Ihren Gewinn 
entweder verdoppeln oder aber verlieren können. Um 
bei der Risikoausspielung zu stoppen, drücken Sie F3. 
2. Befindet sich auf der dritten Walze ein Merkur, ge- 
winnen Sie ebenfalls. 

3. Befindet sich auf jeder Walze ein Merkur, kommen 
Sie in die Sonderausspielung, in der Sie bis zu 100 
Sonderspiele erhalten können. 

4. Bei Sonderspielen erhöht sich jeder Gewinn auf 
drei Mark. Erscheint in Sonderspielen neben der drit- 
ten Walze eine Linie, bringt dies ebenfalls drei Mark 
Gewinn. 

Nach jedem Spiel können Sie sich den Betrag mit der 
Taste F7 ‚„auszahlen‘‘ lassen. Den Betrag, der Ihnen 
noch zur -Verfügung steht, sehen Sie am rechten obe- 
ren Bildschirmrand, darunter werden die eventuellen 
Sonderspiele angezeigt. 

Haben Sie kein Geld mehr zur Verfügung, meldet der 
Computer, daß Sie pleite sind. Sie haben dann die 
Möglichkeit, nochmals zu beginnen oder das Spiel zu 
beenden. 
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MERKUR-SPIELAUTOMAT 


458 scnclr <gp> 
18 rem merkurs===========-02020004 <ig> 468 rem #t e ++ <me> 
28 rem (p) commodore welt team <ho> 470 draw,3,1t03,19t013,19 <ee> 
SO rem ===-=u== een nennen ng> 488 draw, 3,18t09, 18:draw1,3,1t013, 
40 rem (c) by b. harrer 7.8 <pi> 1 <ca> 
58 rem (v) by a. phillips 3.5 <ae> 498 sshapee$,9,8,23,20 <ch> 
60 rem <ah> 588 scncelr <nd> 
78 rem basic v3.5 <nl> 518 rem # r <in> 
80 rem plus4 (c16/116 + 64 kb) <fd> 528 draw1,5,1t05,19 <ol> 
90 rem ===n-annnnnnnnnnneennnnnn- <jg> 538 circle1,5,7,8,6,8,188 <fh> 
1808 senelr:graphic1,1:g0sub5898 <og> 548 draw1,7,12t014,19 <fd> 
118 keyl,"w":key3,"s":keyß,"x" <fj> 558 sshaper$,®,0,23,20 <bh> 
128 x$=chr$( 187) :y$=chr$( 161) <fg> S6Bß scnelr <em> 
130 z$=chr$( 079) <db> 578 rem ## k ##+ <ia> 
140 color®, 1:color2,1:color4,1:col 588 draw1,4,1t04,19:draw1,4,12t012 
or1,8,7 <aj> 1 <ik> 
1590 box1,1,1,318, 198 <nb> 59D draw! ,4,8t012,19 <kg> 
168 b0x1,3,3,316,196 <ed> 608 sshapek$,0,0,23,20 <ab> 
178 char1,9,2,'"merku n* <nn> 618 scnclr <la> 
188 char1,4,5,"ein programm von b. 628 rem ## u #3 <ce> 
hanrer” <pg> 638 circle1,14,14,5,5,90,270 erba 
198 char1,9,7,"(c) 1988” San 648 draw1,9,14t09,1:draw1, 19, 14to1 
200 rem -----------------_--______ <bf> 9.4 <kb> 
218 rem titelmusik <eo> 650 sshapeu$, 0, 8,23, 20 <ca> 
220 rem -------------------- <de> EBB scnelr <bf> 
238 volö:do:readx,y:soundi,x,y:loo 678 rem ** diamant ** < jm> 
puntilx=8:g0t0298 “ru 688 graphic 1,1 <oh> 
an abaB9ß, 15,704,45,704,,18,739, 1 698 draw1,5,1t019,1t021,5t03,5to$, 
5,770,15,739,15,704,15,685,15,739, 1t09,5t012,1t015,8t019, 1 <be> 
45 ie 700 draw1,3,5t012,28t021,5 <go> 
258 data596, 15,596, 15,739,45,739, 1 718 draw1,7,5t012,28t018,5 <ek> 
5,778,15,779,15,770,15,739, 15,704, 720 draw! 12,5t012,20 <ke> 
15,770,45 <la> 730 sshapedi$,®,0,23,28 <pi> 
260 data784,15,704,15,779,45,779,1 748 Sonclr <ıf> 
3,810,15,834, 15,818, 15,779, 15,778, 758 rem --------- -----------_-__ <ch> 
45 “ra> 768 rem geld-und spielesshapes <1d> 
270 data596, 15,596, 15,739,45,739, 1 FE DE Srnumeeeeneae <ob> 
5,770,15,779,15,778,15,739, 15,704, 78@ graphic 1,1 <dc> 
en ar 790 rem #* 1 x* <gp> 
SAN Bann, ? a 808 draw1,12,16t012,2t08,5 <kh> 
298 color1,8,7 <ik> 818 sshapez$( 1) ,8,8,23,28:scneclr <lo> 
388 char1,8,12,"anleitung Bra <fc> 820 rem ## 2 xx <og> 
310 getkeyans rer 838 circle1,13,5,3,3,27@, 123 <aa> 
328 ifan$="j"thenS610 <ib> 840 draw1,16,7t08, 15t017,15 <ej? 
338 ifan$<>"n"then300 <kp> 858 sshapez$(2) ‚0,0,23,28:scnclr <pn> 
3aB senclr:color1,8,7 <jb> 860 rem ## 3 #* <oi> 
358 char1,5,2@,"bitte ca. 25 sek. 878 circle1,12,5,3,3,320,18@ <md> 
ae 1" nr 880 circle1,12,12,4,4,340,24@ <n1> 
368 char1,3,22,"shapes werden defi 890 sshapez$(3) ,0,0,23,2@:scnelr <eb> 
niert!",1 <fj> gOB rem #+ 4 ** <be> 
378 scnclr <mo> 918 draw1,6,2t06,9t016,9 <ma> 
AnN grapkto 1,1 u 920 draw, 12,5t012, 16 <fe> 
390 rem ------------------- > 93@ sshapez$(4),0,8,23,28:scnelr <pp> 
A480 rem shapes fuer titel <in> 940 rem ## 5 xx <be> 
10 rem =-------------------- “an 958 circle1,12,12,4,4,310,228 “eu 
u nn 968 draw1,9,9t09,2t016,2 <pi> 
438 draw,3,19t03, 1t018, 12t016, 1to1 978 sshapez$(5),8,0,23,28:scnelr <Iim> 
6,19 we 980 rem ## 6 *# <ao> 
448 sshapem$,8,0,23,28 <bf> 
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MERKUR—-SPIELAUTOMAT 


998 circle1,12,9,6,7,190,25 


1888 
1818 
1828 
1838 
1848 
1858 
1868 
1878 
1888 
1298 
1188 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1208 
i218 
1228 
1238 
12408 
1258 
1268 
1278 
1288 
1299 
1388 
1318 
4,4 
1328 
1338 
1348 
1358 
1368 
9,2,1 
1378 
21,4 
1388 
1398 
1488 
1410 
1428 
1438 
1448 
1458 
1468 
1478 
to1ß, 
1488 


circle1,11,12,4,4,300,218 
sshapez$(6) ,8,8,23,28:scnelr 
rem ## 7 #* 
draw1,6,3t015,3t07,17 
draw1,8,18t015, 18 
sshapez$( 7) ,8,1,23,28:scnclr 
rem ## 8 ## z 
circle1,12,6,3,3 
circle1,12,14,4,4 
sshapez$(8) ,8,1,23,28:scncl 
rem ** $# b 
circle1,12,7,4,4 
circle1,11,18,6,7,8,195 
sshapez$( 9) ,8,1,23,28:scnclr 
rem ## 8 *#* 

circle1,12,9,5,7 
sshapez$( 8) ,8,8,23,28:scnclr 
rem 
rem 
rem 
rem #* 48 *# 
draw1,3,2t03,8t019,8 
draw1,7,4t07,15 
circle1,16,9,3,6 
sshapew1$,8,0,23,28:scncelr 
rem #* 68 
ceircle1,6,15,3,3 
circle1,6,18,3,6,240,25 
circle1,16,11,3,7 
sshapew2$,8,2,23,22:scncelr 
rem ## 8B ** 
circle1,6,5,3,3:circle1,6,13, 


walzenshapes 


2,3 
Dr 


circle1,17,9,3,7 
sshapew3$,8,08,23,28:scnclr 
rem #* 1.28 
char1,8,1,"128” 
circle1,3,19,2,1:circle1,11,1 


ar 


circle1,19,19,2,1:draw!,1,4to 


sshapew4$,8,2,23,28:scnclr 
rem ## 3.- ## 
circle1,6,6,3,3,325, 198 
circle1,6,12,4,4,8,218 
circie1,18,6,1,1 
box1,18,9,21,11 
sshapewS$,8,8,23,2@:scncelr 
rem ## <#> 
graphic1,1 
draw1,1,1t06,3t06, 1t08,3t09, 1 
3t011,1t012,3 
draw1,12,3t014,1t014,3t016, it 


er 


016, 3t021, 1t018,5t023,7 


1498 


draw1,23,7t018,8t023, 18t018, 1 


1t023, 16t018, 14t018, 17 


1588 


draw1,18,17t016, 14t014, 17t014 


<gm> 
<ac> 
<ak> 
<ca> 
<0ä> 
<ma> 
<dm> 
<el> 
<an> 
<cl> 
<ae> 


‚<dn> 


<eb> 
<ma> 
<1ln> 
<a0> 
<cl> 
<cl> 
<dg> 
<pf> 
<am> 
<oc> 
<id> 
<fn> 
<ki> 
<ba> 
<oh> 
<lg> 
<mm> 
<lo> 
<hn> 
<fj> 


<ap> 
<di> 
<gd> 
<ig> 
<dh> 


<eb> 


<im> 
<ni> 
<cb> 
<kn> 
<en> 
<in> 
<bo> 
eng> 
<jd> 
<ni> 


<gk> 
<fh> 


<fg> 
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‚14t012, 17t011,15t09,17t08, 15 


1518 


draw1,8,15t01,18t07, 13to1, 12t 


07, 18t08,8t06,6t01,1 


1520 
1,1 
1530 
1 
1548 
1558 
1568 
1578 
1588 
1598 
16080 


eircle1,9,7,1,1:circle1,15,7, 


draw1,9,11t01®, 12t014,12t015, 


draw1,12,9 
sshepew6$,8,8,23,28:scnclr 
rem 
rem 
rem 
graphic 1,1 
circle1,19,9,9,9:circle1,18,1 


geldstueck 


1,3,3,320, 238 


1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1788 
1718 
1728 
1738 
1748 
1758 
1768 
1778 
1788 
1798 


nexta 


1808 
1818 
1828 
1839 
1840 
1858 
1868 
1878 
1888 
1898 
1988 
1918 
1928 
1938 


nexta 


1948 
1958 
1968 
1978 
14,7 
1988 
1998 
2880 


draw1,8,9t08,4t013,4 
circle1,13,9,9,9,348,28# 
sshapem5$,8,8,23,28:scnclr 
sshapen$,8,8,23,28 

rem ------------------------- 
rem 
box1,4,4,177,198 
box1,1,48,188,198 
b0x1,1,1,188,198:color1,16,7 
box, 12,43,41,111 
box,45,53,74, 182 
box,78,64,187,91:color1,8,7 
draw1,1,168t0188, 168 
draw1,148,1t0148, 168 
box1,172,18,174,25 
box1,162,11,1780,24 

fora=1t06 

draw1, 162, 11+2*at0179, 11+2%a: 


circle1,151,14,6,6 
circle1,151,15,2,2,328,248 
circle1,151,28,5,5,90,278 
circle1,151,19,2,3,99,278 
draw1,149,14t0149, 11t0153, 11 
circle1,151,25,4,4,98,278 
circle1,151,24,2,3,90,278 
draw1,148,48t0188,48 
circle1,151,55,2,2,1880,8 
circle1,168,55,2,2,8,188 
draw1,151,53t0168,53 
draw1,151,57t0168,57 
color1,9,7:fora=1t024 
draw1,145,680+4*at0175,60+4*a: 


color1,12,5 
circle1,48,179,35,18 
paint1,35,178 
circle1,122,179,35,18:color1, 


paint1, 128,178 
circle1,178,178,4,4 
circle1,178,178,1,2,130,5@:co 
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lor1,14,7 <fd> 24208 data778,30,739,30,77@,45,685, 

2018 gshapem$, 18,18,1:gshapee$,32, 45 <pd> 
10,1 <en> 2438 data®,1 <no> 
2028 gshaper$,49,18,1:gshapek$,69, 2448 gshapen$,240,40:gshapen$, 288, 

18,1 <hn> 48 <hk> 
2038 gshapeu$,83, 18, 1:gshaper$, 106 2458 do:reada,b:sound!,a,b:loopunt 

‚10,1 <nn> ila=® <en> 
2848 color1,13,7:gshapedi$, 15,138, 2468 data643,30,643,30,685,30,643, 

1:gshapei$,75,11®,1 <fc> 38 <ic> 
2058 color1,5,7:gshapedi$,45, 128, 1 2470 data798,45,798,15,798,45,798, 

:gshapedi$, 185, 188, 1:color1,8,7 <fk> 45,798, 15 <ig> 
2068 rem --------------------- <en> 2488 data770,30,739,30,770,45,685, 

2070 rem startkapital <hn> 45 <lo> 
2888 rem ------------------------- <no> 2498 dataß, 1 <jk> 
2098 char1,25,3,"startgeld:", 1 <bm> 250P zeit$="NBBBB1":ti$=-"BRnanna":d 

21008 char1,25,6,"1 ="+b2$+"5 dm" <pb> ountilti$=zeit$:loop <pa> 
2118 char1,25,8,"2 = 18 dm" <gf> 2510 rem ------------------------- <kj> 
2128 char1,25,18,"bitte":char1,25, 2520 rem start <bh> 
11,"waehlen !" <mi> 2538 rem ----------------- -- ----- <dl> 
2138 getkeyst$:char1,25,3,b$ <ii> 2548 printchr$( 14) :getau$ <bi> 
2148 char1,25,6,b5$+b4$ <hf> 2558 ifau$="x"then5488 <gp> 
21508 char1,25,8,b5$+b4$ <ho> 2568 char1,14,8," ":char1,14,9," " 

2168 char1,25,18,b5$:char1,25,11,b :char1,14,18," ":color1,8,7 <ag> 
5$+b4$ <hg> 2578 gshapen$, 15,45, 1:gshapen$, 15, 

2178 ifj=1then j=9:g0t02898 <ii> 66, 1:gshapen$, 15,87, 1 <ae> 
2180 p=9:m=9:m1=8:m2=9:5=0:s1=0:52 2588 gshapen$, 15,87,1:gshapen$,48, 

=8 <nk> 55,1 <nc> 
2198 ifst$="1"then2228 <pl> 2598 gshapen$,48,76,1:gshapen$,81, 

2280 ifst$="2"then2348 <mb> 66,1 <ki> 
2218 goto2998 <no> 2608 rem ------------------------- <an> 
2228 rem ----------------------- <fb> 2618 rem berechnungen <cj> 
2230 rem 5 dm <ak> 2628 rem ------------------------ <kb> 
2248 rem ------------------- <he> 2638 ifm<1landp<38andm1=Bandm?=Bthe 

2258 m=5:p=8 <oe> n5368 <fb> 
2268 gshapemS5$, 240,40:do:readx,y:s 2640 x=8:x1=0:x2=0 <kd> 
ound!,x,y <lb> 2658 p=p-38 <on> 
2270 loop until x=@® <gn> 2668 ifs=Bands1=Bands?=Bthen?2758 <nb> 
2288 data453,30,453,38,571,30,571, 2678 ifs>Bors1i>Bors2>Athens=s-1 <hn> 
38 <ka> 2688 ifs<dthens=s+19:s1=s1-1 <gp> 
2298 dataS16, 15,453, 15,516, 15,571, 2698 ifs>1ßthens=s-18:s1=s1+1 <em> 
15 <ah> 2788 ifs=18thens=®:s1=s1+1 <of> 
2388 data453,30,262,30 <dk> 2718 ifsi<dthens1i=s1+1ß:52=s2-1 <hj> 
2318 dataß, 1 <ff> 2728 ifs1>18thensi=s1-18:52=s2+1 <lc> 
2328 gshapen$, 248,48 <gb> 2738 ifsi=1@thens1=B:s2=s2+1 <hn> 
2330 zeit$="QOBAB1":ti$=-"AHAnan":d 2748 ifs2=>1ands1=>2thens2=1:51=2: 

ountilti$=zeit$:loop:goto2518 <dj> s=8 <pc> 
2348 rem ------------------------- <dh> 2758 ifp<®thenp=p+189:m=m-1 <no> 
2358 rem 18 dm <ph> 2768 ifp>1ß@thenp=p-19@:m=m+1 <ab> 
2368 rem ----------------------- <eb> 2778 ifp=188thenp=®:m=m+t1 <ih> 
2378 mi=1:m=8:p=8 <fe> 2788 ifm<ßthenm=m+1A:m1=m1-1 <dl> 
2380 gshapem5$, 248,48:gshapem5$, 28 2798 ifm> 1dthenm=m-18:m1=m1+1 <md> 
0,40 <mn> 2888 ifm=1@thenm=®:m1=m1+1 <cp> 
2398 do:reada,b:sound!,a,b:loopunt 2818 ifmi<dthenm1=m1+18:m2=m2-1 <ki> 
ila=® <ek> 2828 ifmi>18thenmi=m1-18:m2=m2+1 <eo> 
2488 data643,380,643,30,685,30,643, 2838 ifm1=18thenm1=8:m2=m2+1 <hd> 
38 <ap> 2848 p=int(p*1818+.5)/10°0 <od> 
2418 data798,45,798,15,798,45,798, 2858 color1,5,7 <aa> 
45,798,15 <ne> 2868 char1,25,2,"betrag :",1 <hp> 
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2878 color1,3,7 <on> d1,596,5:sound1,739,5:g0t0384®8 <n1> 
2888 char1,25,18,"s pie le :",1 <ne> 3290 ifp$<>"w"thenwe=@ <gj>? 
2898 color1,15,7 <dj> 3E0D a een <hn> 
2988 char1,25,17,"tri siko :",1 <dg> 3318 rem auswahl 2. walze <dd> 
2918 color1,8,7 <bh> 3328 rem ------------------------- <oc> 
2928 rem ---------- <gl> 33308 color1,2,7:char1,2,22,b4$+b3$ 
2930 rem geildanzeige <cp> :char1,13,22,"*stop*" <am> 
2948 rem -----------3---- <bg> 3340 geto$:zeit$=-"Aanan1":ti$="aan 
2958 gshapez$(®) , 294,38, 1 <dm> 288" :dountilti$=zeit$:1loop <ap> 
2968 gshapez$(p/1B) ‚272,38, 1 <do> 3358 geto$:ifo$="s"then337® <nm> 
2978 gshapez$(m) ‚234,38, 1 <ea> 3368 ifo$<>"s"thensound1,596,5 <pf> 
2988 gshapez$(m1),212,38, 1 . <ie> 3378 b=int(rnd(8)*5) +1 <mk> 
2998 gshapez$(m2) , 198,38, 1:ifs>Bor 3388 char1,13,22,66$:sound1,383,5: 
si>Bors2>®thencolor1,13,7 <do> sound1,596,5:sound1,516,5 <dk> 
3008 gshapez$(s) ‚258, 182,1 <co> 3390 onbgosub3400, 3418, 3420,3430,3 
3818 gshapez$(s1),235,182,1 <ce> 448:g0t03458 <gl> 
3828 gshapez$(s2) ,214,1802,1:colori 3488 color1,2,7:gshapew1$,48,56,1: 
Re; <hc> color1,15,5:gshapew2$,48,78,1:retu 
3838 char1,33,6,z$ <bo> rn <ba> 
3848 rem ------------------------ - <dl> 3418 color1,9,5:gshapew3$,48,56,1: 
30850 rem auswahl 1. walze <jn> color1,6,5:gshapew4$,48,78,1:retur 
3068 rem ------------- == <ek> n <pl> 
3078 a=int(rnd(B)*5) +1 <dd> 3428 color1,16,5:gshapew5$,48,56, 1 
3088 onagosub3898,3118,3138,3158,3 :color1,12,7:gshapew6$,48,78,1:ret 
178:g0t03198 <pa> urn <cl> 
30898 color1,2,7:gshapew1$, 15,46, 1: 3438 color1,2,7:gshapew1$,48,56,1: 
color1,15,5 <oa> color1,16,5:gshapew5$,48,78,1:retu 
3188 gshapew2$, 15,66, 1:color1,9,5: rn <ff> 
gshapew3$, 15,87, 1:return <kp> 3448 color1,12,7:gshapew6$,48,56, 1 
3118 color1,15,5:gshapew2$, 15,46, 1 :gshapew6$,48,78,1:return <f1l> 
:color1,9,5 <ob> 3458 rem ------------------ - - <bg> 
3128 gshapew3$, 15,66, 1:color1,6,5: 34608 rem auswahl 3. walze <kn> 
gshapew4$, 15,87, 1:return <on> 3478 rem ----------------------- <nj> 
3138 color1,12,7:gshapew6$, 15,46, 1 3488 color1,2,7:char1,13,22,"*stop 
:color1,16,5 <mnd> a" <ii> 
3148 gshapew5$, 15,66,1:color1, 15,5 3490 getu$:zeit$=-"AWa001":ti$="DnRa 
:gshapew2$, 15,87, 1:return <jp> 088" :dountilti$=zeit$:1loop <an> 
3158 color1,12,7:gshapew6$, 15,46, 1 3508 getu$:ifu$="s”"then3528 <ko> 
:color1,2,7 <kl> 3518 ifu$<>"s"thensound1, 739,5 <ec> 
3168 gshapew1$,15,66,1:color1, 12,7 3528 c=-int(rnd(B)*6) +1 <de> 
:gshapew6$, 15,87, 1:return <fa> 3530 char1,13,22,b6$:sound1,739,5: 
317@ color1,12,7:gshapew6$, 15,46, 1 sound1,798,5:sound1,643,5 <pp> 
:gshapew6$, 15,66 <io> 3548 oncgosub355®, 3568, 3578,358®8,3 
3188 gshapew6$, 15,87, 1:return <nk> 590, 3689: g0t03618 <md> 
3198 ifwe=1thenwe=®:g0t03318 <hf> 3558 color1,2,7:gshapew1$,81,68,1: 
3288 colaor1,8,7:char1,2,22,"*start return <ad> 
#":getp$ <cf> 3568 color1,15,5:gshapew2$,81,68, 1 
3218 sound1,685,5:sound1,596,5:sou :return <nn> 
nd1,739,5:g0t03228 <hl> 3578 color1,9,5:gshapew3$,81,68,1: 
3228 zeit$="008001" <ea> return <hg> 
3238 ti$="Bu0aoR" <ac> 3588 color1,6,5:gshapew4$,81,68,1: 
3248 do until ti$=zeit$ <dl1> return <jk> 
3258 loop:we=1 <cc> 3598 color1,16,5:gshapew5$,81,68, 1 
3268 getp$:ifp$="w"thenchar1,2,22, :return <pp> 
b4$+b3$ <eh> 3688 color1,12,7:gshapew6$,81,68, 1 
3278 ifp$="w"thengshapen$, 15,46, 1: :return <ki> 
gshapen$, 15,66, 1:gshapen$, 15,87,1 <nd> 3618 rem ------------------------- <no> 
3288 ifp$="w"thensound1,685,5:soun 3628 rem sonderspielegewinn <fa> 
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3638 rem 
3648 k=-int(rnd(B8)*4) 


3658 ifk=Bork=1thenchar1,14,8,x$:c 


har1,14,9,y$:char1,14,18,y$ 
3668 color1,8,7 

3678 rem ---------------------- 
3698 rem 
3788 ifa=1andb=1andc=1ora=4andb=1a 
nde=1theng$="9®.48" :dm=d:pf=48:goto 
3938 

3718 ifnot( a=4andb=1landc=6ora=land 
b=4andc=1ora=1andb=4andc=6) then373 
(1) 

3720 g$="8.40":dm=9:pf=40:g0t:03938 
3738 ifa=4andb=4ande=6ora=4dandb=4a 
ndc=1theng$="9.48":dm=d:pf=49:goto 
3938 

3748 ifnot( a=1andb=1andce=2ora=1and 
b=1andc=60ora=3andb= 1andc=2) then376 
1%) 

3758 g$="8.60" :dm=9:pf=60:g0t03938 
3768 ifnot( a=3andb=1andc=60ra=2and 
b=1ande=2ora=2andb=1andc=6) then378 
[4 

3770 g$="0.68" :dm=8:pf=68:g0t03938 
3788 ifnot( a=1andb=2andc=30ora=1and 
b=2andc=6ora=2andb=2andc=3) then388 
8 

3798 g$="8.88" :dm=9:pf=89:g0t03938 
3888 ifa=2andb=2andc=Aora=2andb=?a 
ndce=6theng$="1.28":dm=1:pf=28:goto 
3938 

3818 ifa=3andb=3ande=Sora=3andb=4a 
ndce=Sora=3andb=4andc=6theng$="3.88 
":dm=3:pf=8:g0103938 

3828 rem 
3838 rem 
3848 rem 
3858 ifa=3andb=3ande=6ora=3andb=Sa 
ndce=6ora=4andb=3ande=6thenifs2<Ith 
en4388 

3868 ifa=4andb=>Sande=6ora=5andb=3a 
ndc=6thenifs2<1then4538 

3878 ifa=5andb=Sandce=6thenifs2<ian 
ds1<7then4688 

3888 ifc=6theng$="9.380" :dm=d:pf=38 
:g0t04688 

3898 ifk=Bork=1then3918 

3988 g0t03928 j 

3918 ifs>Bors1>Bors2>@theng$="3.88 
":dm=3:pf=9:g0t03938 

3928 dm=®:pf=®:sound1,475, 188:goto 
2518 
3938 
3948 
3958 
3968 


sonderspiele 


rem 


rem 
ifs>dors1>Bors2>®theng$="3.08 


<if> 


<il> 
<ob> 


<lo> 


<fc> 
<fk> 


<ci> 
<ha> 


<fp> 
<gc> 


<gb> 


<je> 
<le> 
<am> 
<ii> 


<cp> 
<ki> 
<ga> 
<ed> 
<ld> 
<aa> 
<nf> 
<an> 
<jm> 


<pa> 
<ea> 
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":dm=3:pf=® 

3978 char1,27,28,"gewinn:"” 

3988 char1,28,22,g$:sound1,596, 10: 
sound1,516, 18 

399® char1,27,24,"risiko: ?",1 

4808 getr$:ifr$=""then4dAa 

Aau1B ifr$="n"thenm=m+dm:p=p+pf:got 
04948 f 

4928 
4838 
4048 
4858 
4068 
4078 
4080 
4898 
4188 
4118 rem 
4128 char1,28,22,b6$:char1,27,28,b 
A4$+b4$ 

4138 char1,27,24," "+b$ 

4148 char1,27,28,"8x":sound1,688, 1 
8:char1,27,28,b2$ 

4158 char1,32,20,"2x":sound1,258, 1 
&:char1,32,20,b2$ 

4168 getf$:iff$="s”"then4188 

4178 goto4148 

4188 d=int( rnd(B)*4) 

4198 ifd=Bord=ithenchar1,27,28, "8x 
",1:g0t04218 

42088 ifd=2ord=3thengot04238 

4218 char1,27,22,"leider":char1,27 
‚24,"nichts !":sound1,897,58:sound 
1,864,58 

4228 char1,27,22,b4$+b3$:char1,27, 
24,b4$+b4$:char1,27,28,b2$:g0t0251 
8 
4238 
4248 
4258 
4268 char1,32,20,"2x",1 

4278 ifg$="0.38”"theng1$="9.68": 
@:pf=68 

4288 ifg$="8.48"theng1$="8.88":dm= 
8:pf=88 

4298 ifg$="0.68"theng1$="1.28" :dm= 
8:pf=28 

4388 ifg$="8.88"theng1$="1.60":dm= 
1:pf=68 . 

4318 ifg$="1.28"theng1$="2.40": 
2:pf=48 

4320 ifg$="3.08"theng1$="5 spiele" 
:dm=B:pf=8:s=s+5 

4338 char1,27,22,"gewinn:",1 

4348 char1,27,24,g1$:sound1,596,5® 
:sound1,739,5@ 

4358 char1,27,22,b$ 

4368 char1,27,24,b5$+b4$:char1,32, 


ifr$="j"then41208 
g0:03998 
sound1,784,18 
char1,27,28,"” "”+b$ 
char1,27,22," "+b$ 
char1,26,24," "+b$ 
g0oto2518 

rem 
rem 


riskieren 


rem 
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28,b2$ <bm> 
4370 m=m+dm:p=p+pf:g0t02518 <ij> 
4388 rem ------------------------- <dh> 
4398 rem 3 + 4 sterne <md> 
FAR Dem Fee enuuug <eb> 
4418 color1,14,7 <bb> 


4428 char1,25,17,"ausspielung :",1 <bh> 
4438 ka=int(rnd(8)*5) :color1,8,7 <ct> 
4448 char1,28,19,"3":sound1,596, 18 


:char1,28,19," "” <eo> 
4458 char1,32,19,"12":char1,32,19, 
b2$:sound1,7904,28 <cl> 
4468 char1,38,19,"6":char1,38,19," 

er <kb> 
44978 getr$:ifr$="s"then4498 <bf> 
4488 goto4448 <nf> 
4498 onkagoto4588,4588,4519,4518,4 
528 <ca> 
4588 char1,28,19,"3",1:x=3:g$="3 s 
piele":goto4868 <jg> 
4518 char1,38,19,"6",1:x=6:g$="6 s 
piele":g0t04868 <kl> 
4528 char1,32,19,"12",1:x1=1:x=2:g 
$="12 spiele":goto486®8 <ce> 
4538 rem ------------------------ - <nf> 
4548 rem 5 sterne <ff> 
4558 rem ------------------- <kj> 
4568 color1,14,7 <hl> 


4578 char1,25,17,"ausspielung :",1 <fn> 
4588 ma=int( rnd(B)*6) :color1,8,7 <gi> 
4598 char1,25,19,"6":sound1,784, 18 


:char1,25,19,b2$ . <mi> 
A688 char1,27,19,"12":char1,27,19, 
b2$ <dd> 
4618 char1,380,19,"25":sound1,778,2 
@:char1,3®,19,b2$ <ik> 
4628 getv$:ifv$="s"then4648 <11> 
4630 goto4598 <1lc> 
4648 onmagot04659,4658,4650,4660,4 
660 ,4678 <eh> 
4658 char1,25,19,"6",1:x=6:g$="6 s 
piele”:g0t04868 <ck> 
4660 char1,27,19,"12",1:x1=1:x=2:g 
$="12 spiele":goto4868 <ma> 
4678 char1,30,19,"25",1:x1=2:x=5:g 
$="25 spiele":goto4868 <bd> 
4688 rem --------------------- <kh> 
4698 rem 6 sterne <bj> 
a708B rem ------------------------- <aa> 
4718 color1,15,7 <me> 


4728 char1,25,17,"ausspielung :",1 <in> 
4738 ga=int(rnd(B)*3) :color1,8,7 <ee> 
4748 char1,25,19,"58":sound1,685,5 


:char1,25,19,b2$ <mn> 
4750 char1,29,19,"188"”:sound1,739, 

S:char1,29,19,b3$ <ib> 
4768 getk1$:ifk1$="s"then4788 <ij> 
4778 goto4740 <dm> 
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4788 ongagoto4798,4798, 4808 

4798 char1,25,19,"50",1:x1=5:x=@:g 

$="58 spiele":g0t04868 

4888 char1,29,19,"188"”,1 

4818 sound1,778,18:sound1,81®, 19 

4828 s2=s2+] 

4838 char1,29,19,b3$:char1,25,23,b 

5$+b4$ 

4848 color1,7,7:char1,25,17,"tri ss 
iko :",i 

4858 m=m+1:g0t02518 

A868 rem ------------------------- 

48780 rem risiko spiele 

4888 rem ----------------------- 

4898 m=m+1:color1,7,7 

A988 char1,25,17,"risiko :",1i 
:color1,8,7 

4918 char1,25,21,"gewinn:",1 

4928 char1,25,23,g$ 

4938 char1,25,24,"risiko ?" 

4948 getq$:ifg$=""then4948 

4958 ifg$="j"then5B28 

4968 ifq$<>"n"then4908 

4978 sound1,516,18:sound1,345, 18 

4988 char1,25,21,b$ 

4998 char1,25,23,b$:char1,25,19,b$ 

+b2$ 

5888 char1,25,24,b$+b2$ 

SBI® s=s+x:51=51+x1:g0t02518 

5828 rem ------------------------- 

5838 rem riskieren 

SBAB rem ---------------------- 

5858 char1,25,21," "+b$:char1,25,2 

3,b$+b2$ 

5868 char1,25,24,b5$+b4$ 

5878 char1,25,19,b$+b3$ 

588% char1,27,28,"@x”:sound1,897,1 

8:char1,27,28,b2$ 

5898 char1,32,28,"2x":sound1,917,1 

8:char1,32,28,b2$ 

S18R gete$:ife$="s"then5128 

5110 goto5089 

5128 z=int(rnd(B)*4) +1 

5138 onzgoto5148,5149,5288,5208 

5148 char1,27,20,"0x"”,1 

5158 char1,27,22,"leider"”:char1,27 
‚24,"nichts !":sound1,819,5@:sound 
1,778,58 

5168 : 

5178 char1,27,22,b4$+b3$:char1,27, 

24,b4$+b4$ 

5188 char1,27,28,b2$:g0t02518 

5198 rem --------------------- 

5288 rem 2 x 

5210 rem -------------------- 

5228 char1,32,28,"2x”,1 

5230 ifg$="3 spiele"thengi1$="6 spi 

ele" 
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5248 ifg$="6 spiele"theng1$="12 sp kal an der wand”b2$"haengt ." <ci> 
iele" <ij> 5698 print:print”nach der wahl des 

5258 ifg$="12 spiele"theng1$="24 s startkapitals beginnt das spiel." 
piele" <jf> :print"die erste "; <ma> 
5268 ifg$="25 spiele"theng1$="5@ s 5788 print"walze kann bei nichtgef 
piele" <cm> allen"b2$"mit >fi< nachgestartet, 

5278 ifg$="58 spiele”theng 1$="188 die beiden" > <em> 
spiele" :x2=1:x1=8:x=8:g0105298 <fc> 5718 print"anderen walzen koennen 

5280 x=x+x:x1=x1tx1 <an> mit >f3< vor -"b3$"zeitig gestoppt 

5298 s=stx:51=s1tx1:52=52+x2 <gp> werden." <aa> 
5388 char1,25,24,g1$ <ag> 5728 print:print"ein gewinn erfolg 

5312 sound1, 169, 15:sound]1, 345, 15:s . t bei drei gleichen": <bi> 
ound1,453,15:sound1,596, 15 <ok> 5738 print"betraegen oder bei merk 

5328 char1,25,22,b5$+b4$ <mm> ur auf der"b4$b3$"dritten walze." <hg> 
5338 char1,25,24,b$+b2$ <nd> 5748 print:print"befindet sich auf 

5348 char1,32,28,b3$ <ho> jeder walze mind. ein merkur,"”: <1h> 
5358 goto2518 <ni> 5758 print"so erfolgt eine ausspie 

5368 rem ------------------- - ----- <oc> lung die bis zu”"b2$"188 sonderspie 

5378 rem pleite <pc> len erbringen kann.” <bc> 
5388 rem ------------------------ <la> 5768 char1,8,22,">taste<", 1 <ae> 
5398 color1,8,7 <ik> 5778 getkeya$ <kb> 
5488 chari,24,19,"sie sind" <bp> 5788 scenclr <dn> 
5418 char1,24,28,"pleite !" <pg> 5798 print:print"in sonderspielen 

5428 char1,24,22,"nochmal ???",1  <eg> wird jeder gewinn auf”b2$"3.- erha 

5438 getkeyno$ <dd> eht.":print <co> 
5448 fora=1t024:char1,24,a,b$+b5$: 

nexta <ee> 5888 print"eine linie neben der dr 

5458 ifno$="n"thengraphicß:scenelr: itten walze”b6$"bringt in sondersp 
print"auf wiedersehen !":end <jm> ielen ebenso 3.- . <de> 
5468 ifno$=" j"then2868 <dg> 5818 print:printchr$( 18)" jeder gew 

5470 g0t05398 <ah> san unter 188 sonderspielen ist mi 

5488 rem ------------------------- <ea> t": <dh> 
5498 rem auszahlen <ae> 5828 print:print" "4" und 'f3’ ris 

BR N ER <je> kierbar!"chr$( 146) <ho> 
s518 vol 8 <fm> 5838 print:print"nach halt der dri 

5528 fora=1t024 <cg? tten walze kann man mit>FB<"b2$"au 

5538 char1,24,4,b$+b5$:nexta <nd> szahlen lassen!" <pes 
BSH EOTDFRER TERSTEDEN an 5848 char1,8,22,"alles klar?" <fm> 
5558 gshapem5$,248,b:sound1,648, 18 5858 getkeyd$ <kg> 
:nextb <nm> 5868 ifd$="j"thengraphic1,1:g0t034 

5568 forc=1t0188step24 <na> d she 
5578 gshapen$, 248,c:sound1,745, 18: 

nextc: <co> 5878 scnelr:print"also nochmal !" <dk> 
5588 senclr:graphic® <dc> 5880 goto5618 <gp> 
5598 print:printtab(4)"bis zum nae 5898 b$=chr$( 32) :b2$=b$+b$ <bl> 
chsten mal !" <ec> 5900 b3$=b2$+b$:b4$=b3$+b$ <oo> 
5688 end <gl> 5918 b5$=b4$+b$:b6$=b5$+b$ <gh> 
BE N et <ek> 5928 b$=b5$+b5$:return <bh> 
5628 rem anleitung <if> a 

5638 rem --------------- <jp> 5930 rem ========================= <j]> 
5648 graphicß:scnelr <om> 5948 rem 698671 bytes memory <op? 
5658 char1,9,8,"tanleitung 5958 rem 16218 bytes program <nd> 
2,1 <di> 5968 rem 88336 bytes variables <fh> 
5668 color1,8,7 <eo> 5978 rem BRB4B bytes arrays <di> 
5678 print:print"das programm merk 5980 rem 81898 bytes strings <nj? 
ur simuliert ein geld- spielgeraet 5998 rem 12288 bytes graphic <jg> 
Er <ck> 6080 rem 29899 bytes free (B) <1b> 
5688 print"wie es in fast jedem lo 6B1A rem ========================= ck’ 
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C16/Plus4: Suche Hardcopy 
f. Seikosha SP-180-VC. Verk. 
außerdem Datasette f. C64 m. 
Adapter f. C16/Plus4. Ange- 
bote an: Holger Borker, Her- 
mann-Heukingstr. 7, 4450 
Lingen 1 


TAUSCHE U. VERKAUFE 


brandneue Software f. C16/’ 


Plus4 auf Tape. Ihr habt Sie 
bestimmt noch nicht!! (Kau- 
fe auch.) Michael Szekely, 
Eberstr. 18, Dortmund/Eving 
VERKAUFE: Multiprommer 
V 1.5, neu, VB 120,— DM; 
Pulsar-Eprommer, def., VB 
50,— DM; Final Cart. VB 40,— 
DM; Simons Basic-Modul VB 
STAR-GEMINI 10x: Drucker, 
neuwertig m. Garantie, Cen- 
tronics Par.-Anschluß u. Com- 
modore-Interface DM 640,—, 
für nur DM 440,— zu verk. 
Tel. 06201/69189 

Ich verkaufe 60 Spiele für nur 
30,— DM od. 100 Spiele f. 
50,— DM. Schickt das Geld 
an: Alexander Käss, Hummel- 
str. 7, 7987 Weingarten (nur 
Disk.). 

FÜR PLUS4: Tausche An- 
wend.-Prog. (bes. Schule) auf 
Disk. od. Kass. Liste an: Jo- 
hannes Maass, Am Glaskopf 
59, 5244 Daaden 2 


Verkaufe Computerhefte ab 
1986! Verkaufe auch meine 
PDS-Software f. C16! 6 Disk. 
od. Kass. 30,— DM! Hefte für 
alle Commodore! Anschrift: 
Christian Schmidt, Hauptstr. 
62,8737 Sulzthal 

Verk. gut erhaltenen Plus4 m. 
3 Joysticks, Datasette, Joy- 
Adapter u. vielen Spielen z.B. 
Strip-Poker, Paperboy, Rock- 
man I u. Il, zum Spottpreis 
von 200,— DM. Meldet Euch 
sofort unter: 04856/480 


AUFGEPASST! Verkaufe 
Plus4, Datasette, 1 Joy, 11 
Comp.-Hefte, 22 Spiele, 3 
Handbücher, 6 Mon. alt, Preis 
nach VB od. Tausch gg. C64. 
Tel. 0201/466338 
C16/116/Plus4. Entwicklung 
v. Rechenprogrammen jeder 
Art. Statistik u. Kalkulation! 
Martin G. Maaß, Kulbrock- 
str. 2, 4800 Bielefeld 14 


Suche Tauschpartner f. C16/ 
Plus4. Keine Anfänger! Keine 
Basic-Programme! Habe die 
neuesten Spiele u. Anwender- 
Programme, auch 64K! Listen 
an: A. Blume, Kessberg 26, 
4796 Salzkotten 2, Tel. 
02955/6222 (Disk. u. Tape). 
Bitte nach 18 Uhr anrufen! 
ACHTUNG, COMPUTER- 
FREAKS! Verkaufe preisgün- 
stig! Commodore VC20 u. 
Datasette. Preis nach Verein- 
barung! Tel. 02638/1546 ab 
18 Uhr. 

SUCHE: Dringend billige u. 
gute Spiele u. Programme f. 
C16/116/Plus4, Kass. u. Disk. 
Und wer schenkt mir Compu- 
terschrott aller Art? Überneh- 
me Porto (Bitte). Markus Til- 
lenburg, Bilker-Allee 219, 
4000 Düsseldorf 1 
ACHTUNG! C16/116/Plus4/ 
C64!! Ich suche div. Bücher 
zu diesen Computern. Zahle 
bis zu 50% vom Neupreis. An- 
gebote: Jens Schröder, Oster- 


holzer Möhlendamm 
VERKAUFE C64, Floppy, 
Drucker, Farbmon., Joystick 
u. div. Disk. inkl. GEOS. 
Kompl. f. 1.100,— DM VB. 
Bernd Reuter, Zum Schloß- 
park 1, 5500 Trier 

Suche billige 64K-Erw. f. 
den C16. Bitte Angebote an: 
Michael Masek, A.-v.-Menzel- 
Str. 10, 6090 Rüsselsheim, 
Tel. 06142/59383 
VERKAUFE PUBLIC DO- 
MAIN-SOFT f. C16 u. Ami- 
ga. Public Domain-Soft ist 
frei kopierbar und daher 
keine Raubkopie. Liste gg. 50 
Pf. Rückporto anfordern bei: 
Andreas Langlet, Margeriten- 
kamp 9, 2150 Buxtehude 
Tausche Software f. C16/116 
u. Plus4 (auch 64K). Liste an: 
Mario Sailer, Hillerstr. 10, A- 
4030 Linz 

TESTWELT sucht noch Re- 
dakteur m. C16/Plus4 u. 
Drucker! Mitglieder werden 
auch noch angenommen! Bitte 
schreiben (m. Rückporto!) an: 
TESTWELT, c/o Chr. Schwei- 
er, Hermannstr. 98, 4330 
Mülheim/Ruhr. Tel. 0208/ 
421996. Nur C16/P4! 


ACHTUNG! C16/116/Plus4/ 
C64!! Ich suche div. Bücher 
zu diesen Computern. Zahle 
bis zu 50% vom Neupreis. An- 
gebote: Jens Schröder, Oster- 
holzer Möhlendamm 55, 
2800 Bremen 44, od. Info un- 
ter Tel. 0421/421238 

Nur 5,— DM kostet Interter- 
minal CDFÜ-Prog. (Disk./ 
Kass.) f. C64. Text senden, 
mitschreiben auf Disk. Sofort- 
ausdruck, 300 — 1200 — 
2400 — 4800 Baud, Passwort 
speichern, Disk. formatieren. 
K. Umtausch. M. Gutt, Kant- 
str. 16, 2120 Lüneburg 
Tausche LCD-Spiel gg. ein 
Computerspiel f. meinen Com- 
modore C64 (nur auf Steck- 
modul) !! EILT SEHR! Tel. 
06344/3431 

PLUS4-FREAK sucht Kon- 
takte zu Club od. Anwendern. 
Dr. Ralf Uebel, Raschwitzer 
Str. 3, DDR-7113 Markklee- 
burg 

SUCHE gute Software f. P4, 
auch gute Adressen f. Kauf — 
Tips — Kontakt. Angebote an: 
Andreas Schmid, Löwenstr. 
62, 7000 Stuttgart 70 

MAKE A MILLION! Jetzt 
kann jeder beweisen, daß in 
ihm das Zeug zum Börsenmak- 
ler steckt. Am großen Post- 
spiel kann jeder teilnehmen! 
ALSO LOS! Infos gibt es gg. 
Rückumschlag bei: Müller, 
Moorweg 11, 2875 Ganderke- 
see 

C16/PLUS4! Verk. Script/ 
Plus-Modul m. Handbuch f. 
30,— DM. W. Meier, Parkstr. 
18, 2940 Wilhelmshaven 
PLUS4-PROFIS GESUCHT! 
Neugründung! Endlich gibt es 
einen Profi-Club! (Nur Disk) 
Clubzeitung, Infoaustausch 
etc. Manuel Surmann, Auf 
dem Hagel 9, 5063, Overath, 
Tel. 02206/2452 
VERKAUFE: C116/C16/ 
Plus4. Anschlußkarte f. Ta- 
statur m. 10er Block (CBM 
600/700), Erw. Karte m. 2 
Steckplätzen f. Expans.-Port, 
z.B. f. Eproms. Brenne Ihre 
Eproms. Suche Hard- u. Soft- 
ware aller Art. Tel. 040/ 
7125694 


Verkaufe meine Software f. 
100,— DM, sind ca. 300 Prog. 
Bin auch an Tausch interes- 
siert (Disk). Angebote od. Li- 
sten an: Bernhard Bierek, Am 
Unteren Weinberg 5, 8403 
Oberndorf, Tel. 09405/3574 
SUCHE FÜR PLUS4 gute 
Anwend.-Prog. wie z.B. Super- 
base u. Turbo-Plus-Modul. 
Verkaufe MPS 801 m. Ersatz- 
farbband f. DM 180,—. R. 
Graf, Ingeborgstr. 28, 5600 
Wuppertal 2, Tel. 0202/ 
555892 

DDR-Student sucht f. C64 
Floppy 1541 (1571) billig od. 
geschenkt (auch Interesse an 
Final Cartridge, CP/M, Disk.). 
Andreas Schölz, Max-Planck- 
Ring 4/408, DDR-6300 Ilme- 
nau 

Programmiere spezielle An- 
wendungen f. C16 u. Plus4 (z. 
B. f. Sportclubs usw.). Info 
bei: Christian Picker, Ems- 
grund 11, 4410 Warendorf 1. 
Preis VB. Tel. 02681/1784 
C16, 128K-Erw., Floppy 
1551, Datasette 1531, 2 Joy- 
ad., Bücher, Sonderhefte, vie- 
le Orig.-Spiele u. -Prog., Tur- 
bo-Tape, Text-Manager, Da- 
teimanager, SYS-Cracker, Dis- 
ketten: FP 500,— DM. 64K- 
Erw. (Steckmodul) 40,— DM. 
Möglichst Selbstabholer. Gün- 
ter Sczepannek, Dobergstr. 
79, 4980 Bünde 

VERKAUFE Public Domain 
Soft f. C128. Je Disk. nur 
10,— DM! Info gg. Rückporto 
von: M. Hackstein, Paul- 
Schossier-Weg 4, 4650 Gelsen- 
kirchen 

Plus4/C16/C116: Biete 50 
Spiele, div. Anwend.-Prog. f. 
DM 20,— (Disk). Schein od. 
Scheck. Suche Kopierprog. v. 
Kass. auf Disk. Listings gg. 
80 Pf. in Briefmarken. 
VERKAUFE: Multiprommer 
V 1.5, neu, VB 120,— DM; 
Pulsar-Eprommer, def., VB 
50,— DM; Final Cart. VB 40,— 
DM; Simons Basic-Modul VB 
40,— DM; DB-Bücher: „Cass.- 
Buch“ 15,— DM; „Trainings- 
buch f. Simons Basic“ 30,— 
DM; und jede Menge Orig.- 
Prog. F. Diesel, Oberländer- 
str. 19, 8400 Regensburg 
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Habt Ihr Computerschrott? 
Na, dann nicht wegschmeißen, 
sondern an: Frank Bauer, 
Seeor 2, 8261 Polling schik- 
ken. Zahle bis 5,— DM! Evtl. 
auch mehr. Habe auch eine 
Menge Prog. zum Tauschen. 
Nur Disk! 

Verk. Plus4 m. Joystickadap- 
ter, 2 Handbüchern, Dataset- 
te 1531 u. 16 Spielen f. 160,— 
DM! Patrick Kontecke, Mur- 
jahnstr. 11, 2058 Lauenburg, 
Tel. 04153/3852 


C16/Plus4. Suchst Du spez. 
Software auf Disk? Riesen- 
auswahl! Tausch od. Verkauf 
mögl. Suche Lightpen(Trojan) 
auck ©. Softw. Info bei: 
Frank Burzlaff, 2120 Lüne- 
burg, Tel. 04131/50421 nach 
18 Uhr 

Suche Datasetten f. C16. Tel. 
0221/525471 ab 18 Uhr 
SUCHE**FLOPPY 1541** 
Bitte anrufen, wenn Sie ein 
gut erhaltenes u. billiges Ge- 
rät haben! Tel. 06121/ 
420450, Holger Kiefer, Die- 
selstr. 24, 6200 Wiesbaden. 
VERKAUFE Orig.-Spiele 
(Kass.) wie Uchi Mata, Titanic 
usw., 10 bis 15 DM. 


C128*C128*C128: SUCHE 
Anwend.-Prog. im C128- u. 
CP/M-Modus. Möglichst gün- 
stig!' Gunnar Hoenekop, 
Asternweg 2, 4792 Bad Lipp- 
springe 

PLUS4: SUCHE KONTAKT 
zu Script/Plus-Benutzern. 
Peter Hakenjos, Werderstr. 13, 
7500 Karlsruhe 


*:* COMMODORE PLUS/4 
Wer möchte am P4-User-Port 
eine Telefonwählautomatik u. 
Datenbank (private Tel.-Anla- 
ge) betreiben? Ich helfe gerne 
beim Bauen. Info u. Listing 
bei E. Sirges, Bismarckstr. 37, 
5100 Aachen, Tel. 0241/ 
513765 (bitte Rückporto!) 


BSC sucht Dich! Plagt Dich 
die Langeweile? Dann bist Du 
an der richtigen Adresse ! ! ! 
Hast Du Topgames, tauschen 
wir gern mit Dir, wenn nicht, 
ist es auch egal. ASCII 80/ 
76/75/67/49/48/53/56/57/ 
54/ 7530 Pforzheim od. Tel. 
07239/7367 


VERKAUFE Orgel Yamaha 
35 N, 2-manualig, Rhythmus, 
Baßläufe, 1-Finger-Automatik 
u.v.m. NP über 3.000,— DM, 
jetzt nur 1.350,— DM od. 
Tausch gg. Amiga 500 m. 
Mon. 1081. Tel.0711/846644 
VERKAUFE f. C16/Plus4 
Spiele u. Anwenderprog., 20 
Prog. zu 10,— DM. VERKAU- 
FE C16-Orig.-Spiele zum hal- 
ben Preis z.B. P.O.D, R16, 
Attack. Schreibt an: C. 
Schnoor, Lausanner Str. 129, 
2800 Bremen 44 

HALLO, FREAKS! Ich suche 
die Spiele: Airwolf, Rockman, 
Vegas, Jackpot, Hustler zu ei- 
nem billigen Preis. Suche 
auch den Drucker Okimate 
20, er muß funkt.-fähig sein. 
Nicht über 300 ,— DM. Schnell 
anrufen unter 04838/965, 
Lars Metz 

Plus4/C16/116. TAPE. Du,ja 
genau Du! Habe billige An- 
wender, Spiele, Grafiken. 
Karte od. Brief an: H.-H.Boß, 
Hauptstr., 2992 Dörpen 
SUCHE TAUSCHPARTNER 
f. C16/C64! C16 auf Tape, 
C64 auf Disk. Neuester Stuff. 
Listen an: M. Esser, Schützen- 
str. 2,4980 Bünde 1 
VERKAUFE Orig.-Spiele auf 
Kass. z.B. Quiwi, Paint-Box. 
Winterolympiade, Musik-Ma- 
ster ab 5,— DM. Liste anfor- 
dern bei: Burkhard Koss, 
Theodor-Storm-Str. 16a, 
2215 Hademarschen 

HILFE HELP Plus4/C16/116: 
Wer hat aus dem RUN-Sonder- 
heft das Spiel „Das Schwert 
der Samurai‘ eingegeben und 
zum Laufen gebracht? Porto- 
kosten werden übernommen: 
Tel. ab 20 Uhr 04421/25982 
Wer bringt Basic-Programme 
v. CBM (Floppy 4040) auf 
IBM-Format od. kann Hinwei- 
se u. Tips geben. Gräfe, Pil- 
lauer Str. 2 G, 2804 Lilien- 
thal, Tel. 04298/3943 


EILT: SUCHE C64 u. 1541. 
Geräte müssen 100% o.k. sein. 
Zahle f. beide Geräte bis350,— 
DM. Sendet Euer Angebot an: 
Uwe Ruettgers, Opderbeck- 
weg 18, 4770 Soest, Tel. 
02921/82118 


Data-Club informiert. Data- 
Club! Der neue, brandheiße, 
druckfrische Data-Club-Kata- 
log ist da ! ! F. nur 80 Pf. er- 
halten Sie ihn! Software am 
laufenden Band! Data-Club, 
Kurze Str. 3a, 2993 Ester- 
wegen 


f. RGB-Monitor u. Anwender- 
prog. auf Eprom, Modulsoft- 
wareplatinen u. Eprommer 
sowie Artikel aus CW, C64, 
Compute mit (keine Spiele) 
Tel. 02861/2994, tägl. ab 17 
r 
Biete Plus4 m. 2 Floppies 
1551 u. Drucker MPS 801 wg. 
Systemwechsel (PC) als 
Kompl.-Paket an für 999,— 
DM. Edwin Oestreich, Am 
Rain 11, 6423 Wartenberg 1 
C16/Plus4: Verk. digital. Gra- 
fiken u. Sound-Demos! So 
gut wie auf C64 od. besser!? 
8 Disk. Info bei: Tel. 02955/ 
6222 — Paderborn 
*tk%* SDS V 2.3 **** DAS 
Zeichenprog. Versch. Zeichen- 
sätze, sehr schnell, viele Funk- 
tionen wie z.B. Shapes, Lupe. 
Zeichensatzeditor u. univer- 
selles Ausdruckprog. werden 
mitgeliefert. Zu bestellen gg. 
20-DM-Schein bei: Holger 
Scherer, Jungstr. 25, 6550 
Bad Kreuznach 
SUCHE: C64 bis 150,— DM; 
1541 bis 200,— DM; 1571 bis 
280,— DM; PC 10 II bis 
1.000,— DM; Amiga 500 — 
2000. Tel. 0202/469243 
Verkaufe f. C64 preisgünst. 
Software. 50 Games f. nur 
100,— DM (nur auf Kass.). 
Schein an: Michael A. Schön, 
Landgraf-Philipp-Platz 10, 
3559 Haina/Kloster 


SUCHE FÜR PLUS4 Floppy 
1551 u. Drucker Seikosha SP 
180 VC od. kompatibel sowie 
Script-Plus-Modul gebraucht. 
Angebote an Georg Csapo, 
Danziger Str. 44, 7410 Reut- 
lingen, Tel. 07121/36794 od. 
tagsüber 07071/89401 

Suche Listing od. Kass. Bio- 
rhythmus f. Plus4. Bei Ge- 
fallen gute Bezahlung. Tel. 
nur ab 19 Uhr 07673/30724- 
Austria 
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PLUS4C- 16 
80 Zeichen Textverarb. 
deutsche Umlaute 
Disk DM 39,90 Fa. BLK 
Kaspar-Spät-Str. 15 
8000 München 90, 
Telefon 089 / 68 82 26 
KERRRRERERKERERERTEKERK 
EILT! Suche C128D od. 128 
u. 1571. Geräte müssen o.k. 
sein. Sendet Euer Angebot 
an: Uwe Ruettgers, Opder- 

beckweg 18, 4770 Soest 

Ich besitze einen Commodore 
128 u. suche verzweifelt nach 
einer Textverarb., die dem 
„Loco Script“ des Schneider 
Joyce nicht nachsteht. Wer 
kann mir helfen? Zahle auch. 
Suche Anl. f. Superbase u. 
Protext. Oliver Tieste, Im 
Grunde 20, 2804 Lilienthal 


*kKkKkK KK 


KK K* 


Suche Speichererw. f. C128D 
auf 512 KB. Angebote an: 
Joachim Junige, Treschkow- 
str. 34/6, 2800 Bremen 1, 
Tel. 0421/72606 


SUCHE COMPUTERCLUB 
ar PLUS4) Schickt mir In- 
ormationen od. ein Probeheft 
einer Clubzeitschr., falls vor- 
handen. TAUSCHE, SUCHE 
U. VERKAUFE Top-Software 
(habe ca. 300). Tel. 07191/ 
67781 (Atze). Danke! A. 
Keller, Drosselweg 25, 7150 
Backnang 
C16/116/Plus4/64!!! Wir su- 
chen noch Mitglieder. Wir bie- 
ten: Clubzeitung, Software- 
tausch, Anzeigenservice und, 
und, und. Info gg. Rückporto. 
Suche Tauschpartner £. Plus4. 
T. Esser, Schützenstr. 2, 
4980 Bünde 1, Tel. 05223/ 
15345 


SOFTWARE-PROBLEME??? 
Sind Sie Besitzer eines Com- 
modore 16/116/Plus4 u. su- 
chen Orig.-Software u. Zube- 
hör zu niedr. Preisen? Fordern 
Sie einen Gratis-Katalog an! 


.P. Schäfers, Riekestr. 5, 4402 


Greven 1 


VERKAUFE C16 (defekt), 
Adapter, Verbindungskabel, 
Bedienungshandbuch, Data- 
Becker-Buch, 42 Orig.-Spiele 
u. Anwend.. Prog., Joyst., 
Commodore. Welt u. Sonder- 
hefte. Preis 210,- DM. M. 
Greifenhagen, Stöckelstr. 8, 
CH-8610 Uster 


BBORSE II 


Wer verschenkt an armen 
Schüler einen Commodore 
C64. Wir brauchen ihn 
zwecks Schule. Wir zahlen 
höchstens 50,- DM. M. Grei- 
fenhagen, Stöcklerstr. 8, 
CH-8610 Uster, Schweiz 
C16/64 KB m. Datasette 
1531 u. 50 Spielen, Ace, Ace 
2, Summer Event u.a. 200,- 
DM; C16 m. 1531 £. 150,- 
DM. Jörg Hildebrandt, 
Schlenkenbrink 25, 4973 
Vlotho-Uffeln 

Freesoftw. f. C16/116/Plus4: 
3600 Block = 6 Diskseiten 
nur 20,- DM. Über 100 Pro- 
gramme. Viktor Jürgens, 
Prinzenstr. 131, 2330 Eckern- 
förde 

Ich suche START u. SYS- 
Adressen f. den Plus4. Suche 
DINA4 Hardcopy f. Plus4 u. 
MPS 100. Tel. 04192/4726, 
Thorsten Idzellis, Brambusch 
23, 2357 Bad Bramstadt 


Verkaufe 35 Plus4-Spiele od. 
Anwender auf Disk. f. 20,- 
DM. Lieferung nur gg. Vor- 
kasse. Frank. Rückumschlag 
m. 20,- DM an: Stefan Hoff- 


Verkaufe C16/64K m. Flop- 
py 1551 u. Büchern gg. 
Höchstgebot. Tel. 02272/ 
7942, Heinz Lurz, Schützen- 
delle 63, 5012 Bedburg 


PLUS4/TEXTADVEN- 
TURES: Erfahrungsaustausch 
u. evtl. gemeinsames Ent- 
wickeln v. Programmen 
wünscht Wolfgang Dethlefs 
(39 J.), Krokusweg 7, 2382 
Kropp, Tel. 04624/1760 


Verkaufe Spiele f. C16, Orig. 
auf Tape zu niedr. Preisen. 
Ruft an 06233/62937. 
Andreas Fehres. Jede nur 
einmal. Grüße M. Deis. 
Schreibe mal wieder! 


60 Spiele f. C64 f£. 30,— DM 
sowie C16/116/Plus4 eben- 
falls 30,— DM. Schick die 
Scheine an: Alexander Käss, 
Himmelstr. 7, 7987 Wein- 
garten und Ihr bekommt die 
Software. 

C16(64K), Datasette, Floppy 
1551, M&T-Sonderhefte, 
Prog.-Service-Disketten, Spie- 
le auf Disk. u. Kass. (keine 
abgetippten!), Textverarb. u. 
Dateiverw. Alles 1A-Zustand, 


mann, Gasstr. 17, 2308 (auch einzeln) billig abzuge- 
Preetz. PS: Tausche Pro- ben. Tel. 02821/20050 ab 
gramme 18 Uhr. 

C16/116/PLUS4! Wer hat guche 


gute Programme (abgetippt, 
gekauft usw.) u. möchte mit 
mir tauschen? Jeder Brief 
wird beantwortet!! Schreibt 
an: Christian Bartsch, Norks- 
häuschen 136, 5600 Wupper- 
tall 

Achtung! Verkaufe Commo- 
dore Monitor 1702, techn. 
wie neu, m. Verp. Anschluß 
an C64, Preis 500,; DM VB. 
Tel. 06024/7939. Möglichst 
im Raum Aschaffenburg! 


HILFE HILFE HILFE! 

Wer kann mir helfen? Suche 
jemand, der mir bei der 
Basic-Sprache f. den C64 wei- 
terhilft. Bitte melden! Nor- 
bert Korthols, Bahnhofstr. 
185 A, 4100 Duisburg 12, 


Plus4. Gerhard Andermann, 
An der Hofbreite 2, 3412 
Nörten-Hardenberg, OT 
Elvese, Tel. 05503/2590 
nach 19 Uhr 


Suche C64 od C128 m. 
Floppy, Drucker, evtl. auch 
Monitor. Nehme auch Einzel- 
teile, wenn günstig. Tel. 
069/302940. 


Suche Textmanager m. Such- 
u. Sortier-Routine, Plus4, 
Kass. Jürgen Schust, Förster- 
weg 40, 2000 Hamburg 54, 
040/5407326 

C16, 116, Plus/4-Anwender: 
Der Verein speziell f. uns! 
Mit Clubzeitschr. u. Soft- 
ware-Bibliothek. Info beim 
hrc e.V., Bauerland 15, 48 
Bielefeld 1 

Hallo, Plus/4-C16-Fans! 
Plus4-User aus der DDR sucht 
Erfahrungsaustausch u. Brief- 
wechsel. Bin 31 J. (M). würde 
mich auch sehr über Soft- u. 
Hardware freuen, da mittel- 
los. Jeder Brief wird beantw. 
v. Frank Harnisch, Ringstr. 
189, DDR-7060 Leipzig 


Verkaufe versch. Zeitschr. 
(64er, RUN, CINEMA ...) 
sowie div. Orig.-Prog. (Tape 
u. Disk.) f. C64. Liste gg. 
Rückporto. Kaufmann, Burg- 
str. 61, 7000 Stuttgart 80 
Suche intakte Floppy 1551 u. 
GRAFIKMODUL f. den MPS- 
802/1526 od. Plotter!! Ange- 
bote an: Brigitte Nitsch, 
Steinbruch Str. 17, 4100 
Duisburg 1, T. 0203/358074. 
PS.: Tausche auch Top-Soft 
auf Disk.! Beantworte alles! 


Für 10,— DM bekommt Ihr 
die besten Spiele für den 
C16/+4: 2 Disk. randvoll m. 
Topsoftware! Suche noch 
Partner zum Software-Tausch. 
Nur Disk. Suche noch Super- 
base (64K). Bitte wenden an: 
A. Balgar, Fortkamp 7, 

4250 Bottrop i 


mago 30,— DM; Portfolios 
15,— DM. Info bei: Peter 
Hakenjos, Werderstraße 13, 
7500 Karlsruhe 

Suche Grundplatine f. C16 
(nicht defekt). Angebote an: 
Lothar Härterich, Hauptstr. 
85, 8721 Poppenhausen, 
Tel. 09725/1434 ab 18 Uhr 


Hey, Computer-Freaks! Ich 
suche div. Data Becker 
Bücher f. C64/C16/P4. Zahle 
bis zum halben Neupreis! 
Schickt Eure Angebote an: 
Jens Schröder, Osterholzer 
Möhlendamm 55, 28 Bremen 
44, Tel. 0421/421238 
Verkaufe meinen C16 + 64 
KB. Mit Datasette, Basic-Kurs 
usw. Ebtl. Plus4 m. 256 KB. 
Preis VB. Verk. auch einige 
Orig.-Software. Axel Klein- 
Jung, Dümmlinghauserstr. 22, 
5270 Gummersbach 1, Tel. 
02261/52644 v. 16-17 Uhr 
Verkaufe DFÜ-Prog. u. 
Taschenrechnerfunktionen. 
Disk.: 10,— DM. ACHTUNG: 
1. Prog. arbeitet nicht mit 
allen Dataphonen. 2. Keine 
Texteingabefunktion. Prog. f. 
C64. Kein Umtausch. 
Matthias Gutt, Kantstr. 16, 
2120 Lüneburg 


Suche Footballer of the Year 
f. Plus4. Der erste erhält 2 
Orig.-Spiele (Tape). Markus 
Ramm, Frankenweg 33, 4630 
Bochum 6 


C64. Da total verarmt, kann 
ich nur bis zu 150,— DM 
zahlen! Tel. 02392/71589, 


C16/+4 Gratis-Info anfordern. 
Kopiermodul, Kopier-Prog., 
Anwender- u. Spiel-Prog. 
Jetzt Gratis-Info anfordern!! 
Th. Görtz, Friedrich-Ebert- 
Str. 113, 6103 Griesheim, 
Tel. 06151/719132 
ACHTUNG! C16/116/Plus4. 
Mit POKE4097,1:DELETEL 
macht man Reset und new 
rückgängig. Suche C64 bis 
150,— DM, kein Schrott. 
Tel. 04861/6264. Ich rufe 
zurück. 


IDEAL FÜR EINSTEIGER! 
VC20 m.: Datasette, 3K-Erw. 
3 Spielemodulen u. 17 Kass. 
(4 neue, 5 eigene, 7 Orig.- 
Spiele, Basic-Kurs). M. Porto 
nur 100,— DM. Köneke, 
Westendstr. 26, 6072 Dreieich 
C128D, neuestes Geräte 
(Stahlgehäuse), 80-Z.-S/W- 
Mon., 70 Disk. u. div. Zube- 
hör, alles 6 Mon. alt. VB 
900,— DM. Tel. 02234/ 
58964 ab 18 Uhr 

Input-Kass. 3/85-8/87 f£. 
150,— DM; Profimat m. Disk. 
f£. 50,— DM; Roboter-Buch 
20,— DM; Lexikon C64 25,— 
DM; Codier-Blätter Conrad- 
basic 200 St. 6,— DM. Wolf- 
gang Bruns, Graf-Bernhard- 
Str. 22, 4934 Horn-Meinberg 
01. Tel. 05234/1484 ab 18 
Uhr 

HEY COMPUTERFREAKS! 
Verk. C16 + 64K 150,— DM; 
Datasette 75,— DM; Floppy 
400,— DM; 10 Leerdisk. 
40,—; 2 Quickshot II 25,— 
DM; 2 Adapter 10,— DM; 
Sonderhefte, VIA, Software 
(z.B. Winter Olympiade 
u.v.m.). CDS, 44, rue de 
Mondercange, 4381 Ehler- 
ange-Luxemburg 

Tausche, kaufe, verkaufe 
Spiele, Anwend.-Prog. u. 
Musik-Prog. f. C16/+4. Suche 
2 Joysticks z. günst. Preis! 
Bitte um Angebote, Listen u. 
Ähnliches. Jede Zuschrift 
wird garantiert beantwortet! 
Alles an: Jürgen Oschinger, 
Eschweg 1,2171 Geversdorf/ 
Oste 

* HALLO C16/P4 FREAKS* 
Verkaufe 20 Prog. f. nur 10,— 
DM. Auf Disk.! Verk. 50 
Prog. f. nur 20,— DM. Auf 
Disk.! Bei Interesse Schein an 
K. Henk, Breslauerstr. 4, 

518 Eschweiler 


An alle C16/Plus4-Fans! Bie- 
ten ca. 400 Games ab 5 Pf. 
pro Spiel, Liste & Lieferbe- 
dingungen bei Jordi Rieger, 
Maiburgerstr. 38, 2950 Leer/ 
Logabirum anfordern od. an- 
rufen 0491/73808, Spider- 
Crack Computer-Club 
Suche: „Mein 1. C64-Pro- 
gramm“ v. G. Lippman, 
Sybex-Verlag. Riedl, Tel. 
0911/440166 

Verkaufe div. Input 64, Soft- 
ware-Club-Kassetten u. Com- 
modore Discs (teils orig.- 
verpackt). Angebot an Till 
Franzmann, Tel. 06132/8168 
(Freitag ab 19 Uhr) 


Be 0 000 


C64 — C16 — Plus4 — Lernprg. 
Techn. Mathe + Schulanwend. 
+ Grafik zu reellem Preis. 
Cass/Disk z.B. Bruchrechn. 
Vokab. Geometrie, Zahnr. 
Festigk. Hydr. E-Techn. Kata- 
log 1 DM Briefm.-Comp. Typ 
angeben! Softvers. A. Ristau 
Peetzweg 9, 3320 Salzgitter 1 


Verk. 2-Color-Printer CITI- 
ZEN IDP-560 f. Commodore- 
Comp. 60,— DM, inkl. Anwen- 
derprog. f. den Drucker. Eti- 
ketten — Text — Tansparent 


LOGO für den Plus4 od. C16 
(64K). Steckmodul, Demo- 
Disk. u. Handbuch f. DM 
50,—. Bei Vorkasse NN +5,— 
DM. Harald Hobbelmann, Jun- 
kernkamp 18, 2822 Schwane- 
wede, Tel. ab 18 Uhr 04209/ 
5390 


ACHTUNG, C16-FREAKS! 
Verk. Prog. ab 50 Pf. 60 Prog. 
f. 35,— DM. Liste gratis: H.P. 
Baumgartner, Osloring 17,23 
Kiel, Tel. 0431/522443 ab 
19 Uhr. 

ACHTUNG! Suche dringend 
CW-Sonderheft (C16/116/P4) 
Nr. 3/86. Zahle gut! Anrufe 
zw. 17 u.20 Uhr! Es eilt sehr. 
Tel. 0228/655110 


FLOPPY 1551 f. C16/116/P4 
m. Disketten, ca. 200 Prog. 
(Spiele u. Anwend.) wg. Sy- 
stemwechsel f. 200,— DM. 
Tel. 19-21 Uhr, Thomas Kol- 
be, Saselerstr. 167, 2000 
Hamburg 73 

SUCHE KONTAKT zu C16- 
od. Plus4-Usern zwecks Erf.- 
u. Software-Tausch aus dem 
Raum 5800 Hagen. Kontakt- 
adresse: H. Ritter, Berghofstr. 
22, 5800 Hagen, Tel. 02331/ 
83140 

VERKAUFE C16 m. Abdeck- 
haube, Datasette, Spielen, 
Heften, Büchern f. 200,— DM 
Schreibt an: Andreas Fehres, 
Schwalbenweg 15, 6710 Fran- 
kenthal, erst o. Scheck. 
Schreibe dann zurück. 
SUCHE dt. Anleitung f. 
SCRIPT PLUS Textverarb. 
(auch selbstgeschrieben). 
Gerd Besser, Bahnhofstr. 13, 
5982 Neuenrade (Märk. 
Kreis), Tel. 02392/64587 


— usw. Auf Disk. od. Kass. 
zus. 11 Prog. f. C16 od. P4. 
Hermann Rippel, Vogelsberg- 
str. 112, 6420 Lauerbach 


C16/Plus4! Anwender-Soft- 
ware. GRATISINFO bei: 
Frank Murovec, Alleestr. 56, 
4050 Mönchengladbach 


C16/116/P4. Übernehme Auf- 
tragsprogrammierungen Ihres 
Systems. Mit Vorliebe mathe- 
matisch/naturwiss., Daten- 
verw., Lageristik! Jürgen Vor- 
werk, Dörener Weg 29 a, 
4790 Paderborn 


C16-FAN sucht alles f. C16 
(Lit., Soft-, Hardware) u. 
Kontakte im Raum Köln. Tel. 
0221/705923 


Suche Tips u. Tricks f. o.g. 
Drucker! Jede Menge Prog. 
zum Tausch. Frank Bauer, 
Seeor 2, 8261 Polling 


Suche den, der mich aus 
Bochum angerufen hat u. mir 
eine Bezugsadresse f. SCRIPT 
PLUS m. dt. Anl. genannt hat. 
Bitte melden Sie sich noch 
einmal. Mir ist die Adresse ab- 
handen gekommen! Brigitte 
Nitsch, Tel. 02203/358074 

VERKAUFE C16 (64K) inkl. 
Datasette u. 12 Spiele (Kass.) 
u. Anwend.-Prog. DM 150,—. 
Marco Brockschmidt, Forst- 
weg 7.4817 Leopoldshöhe 


C16/116(64K)/Plus4: Relat. 
Dateiverw.: bis zu 1500 Da- 
tensätze! Freie Maskener- 
stellung in 10 Feldern & 24 
Zeichen! Mit Handbuch! Preis 
19,50 DM plus NN/Porto. 
Jürgen Vorwerk, Dörener Weg 
29a, 4790 Paderborn 

PLUS4 zu verkaufen. Com- 
modore Plus4, Floppy 1551, 
Datasette, Disk.-Box u. ca. 35 
Disk., Bücher u.a. f. VB400,— 
DM. Dierk Roessner, Eppen- 
dorferweg 115, 2000 Ham- 
burg 20 

VERKAUFE Zenith Z 148 
PC, 100 % IBM-kompatibel 
m. 20 MB HD, Mannesmann 
Tally MT 85 u. vielen Prog., 
f. nur DM 4.000,-. Ab 17 
Uhr unter 089/529574 od in 
AV-Mailbox 089/183951, 
Username OWAMBO 


PLUSA4, defekt, v. Bastler ge- 
sucht. Bitte Angabe v. Fehler 
u. Preisvorstellung an: Hell- 
mut Kainka, Edm.-Weber-Str. 
186, 4690 Herme 2, Tel. 
02325/62556 


C16/Plus4-User, verkaufe 
meine Software (meist Spiele). 
Liste gg. Freiumschlag super- 
billig v. Harald Scheel, Kol- 
laustr. 178, 2000 Hamburg 
61 

VERKAUFE meinen C16 (64 
KB), Zeitschriften, 24 Spiele 
(nur Orig.) f. nur 70,— DM. 
Bitte melden bei: Jörg Stein- 
hilber, Am Weiher 6, 6120 
Michelstadt-Asselbrunn 
TED-Chip 8360R2 f. C16/ 
Plus4 DM 20,— zu verkaufen. 
Tastatur CBM 610 DM 8,-. 
Sonstige Chips, Decoder, 
ROMs, eing. Software teil- 
weise noch vorhanden. Stübs, 
Tel. 02351/6956 ab 18 Uhr 


*#*C16/116/Plus4*** Verk./ 
tausche günst. TOP-Program- 
me (habe über 400 St.) u.a. 
Copy-Prog. T/D-D/T usw. 
Verk. auch C116 günstig. Tel. 
07191/67781. Listen bei: A. 
Keller, Drosselweg 25, 7150 
Backnang. Möglichst 50 Pf 
beilegen. 

SUCHE ANWENDUNGEN 
im kaufmänn. Bereich sowie 
dt. Handbuch f. Floppy 1551. 
A. Jacksch, Schneiderberg 15, 
3000 Hannover 1, Tel. 0511/ 
7000039 

*+*016/116/P4***  Suchst 
Du Software? Ich habe sie. 
Liste gg. Rückporto. Frank 
Bauer, Seeor 2, 8261 Polling, 
Tel. 08631/14588, ab 17 Uhr 
SUCHE dringend einen P4. 
Angebote an: Oliver Thomas, 
6729 Wörth 2, Tel. 07271/ 
41265 


Alles für C16, C116 und Plus 4 


SCRIPT PLUS, das berühmte Textverarbeitungs-Prog. 
(Modul), jetzt mit dt. Handbuch, nur 99,- 
SCRIPT/PLUS-Assistent (Hilfs-Prog. „dt. Zeichensatz‘) 


Cass/Disk 


SCRIPT/PLUS-Handbuch, dt. 


je 19,— 
29,— 


SCRIPT/PLUS m. Assistent u. dt. Handbuch, kompl. 59,— 


SUPERBASE, prof. Datenbankprog. der Spitzenklasse, 


engl. Original, läuft auf C64 und Plus4, Disk 99,- 

dazu: 

Peter Wiesa, Superbase für Einsteiger (Data Becker) 29,— 
Cass/Disk 

ACE (64KB-Version mit Sprache) 29,-/39,- 

MERCENARY + SECOND CITY (Comp.) 39,-/49,— 

INFOCOM Adventures (engl. Text) sind SUPER: 

ZORK I, ZORK II, ZORK Ill, STARCROSS, SUSPENDED 

je Disk 39,—- 

LIGHT PEN (Lichtgriffel) mit Mal- u. Hardcopyprog. 
59,-/69,— 

DRUCKER incl. Interface u. Kabel ab 399,— 

Solange der Vorrat reicht: 

FLOPPY 1551 nur 299,— 

Für C16/116: j 

64KB-Speichererweiterung m. Prog., Einbau und 

Rückporto - nur 99,— 

NETZTEIL (50 % mehr Leistung als das Original) 49,—- 


„und vieles mehr, Gratis-Info anfordern. 


Ifl Dipl.-Ing. H. Stechmann 
D-2152 Horneburg, Postfach 210 
04163/21 und 089/350 84 59 


Versandkosten DM 5,—; bei Nachnahme zuzügl. Gebühr 
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Jetzt perfekt: 
Unser Checksummer 


Hatte bisher unser 


Checksummer an Buch- 


stabenvertauschungen 
nichts auszusetzen, so 
zeigt er sich nun nicht 
mehr so kulant. 

Ob Sie mit der alten 
Version nun eingegeben 
hatten: 


10 print”ab” 
oder 
10 print “ba”, 


der Checksummer 
brachte in beiden Fällen 
die Prüfsumme < gk>. 
Leicht kann es vorkom- 


men, daß beim schnel- 
len Tippen, besonders 
im Zehnfingersystem, 


die Taste, die eigentlich 
erst als übernächste dran- 
kommen sollte, ein wenig 
zu früh erwischt wird. 
Dem Checksummer, der 
lediglich die Ascii-Werte 
der Buchstaben addierte, 
konnte dieses natürlich 
nicht auffallen. Was also. 
tun? Ob etwas früher oder 
später addiert wird, än- 
dert nichts am Resultat 
der Summe. ‚Anders ist 
es, wenn man zwei Ver- 
knüpfungsarten kombi- 
niert. So ist z.B. 2*30+40 
etwas anderes als 2*40+ 
30. Und genau dieses war 
dann die Lösung. Die 
Summe wird nun einfach 
durch eine Linksver- 
schiebung vor jeder Addi- 
tion verdoppelt. Da- 
durch, daß im Falle, 
wenn das Ergebnis größer 
als 255 ist, der dabei ent- 
stehende Übertrag als 
Wert 1 zusätzlich addiert 
wird, verflüchtigen die 
Werte der am Anfang der 
Zeile gefundenen Codes 
sich nicht nach 8 weite- 
ren Zeichen. Damit bleibt 
nicht nur die Aussage- 
kraft der Prüfsumme voll 
erhalten, sondern erfährt 


sogar eine erhebliche 
Steigerung. Und vor allen 
Dingen wird nur eine 
klitzekleine Änderung er- 
forderlich, die dieses zu 
vollbringen,. in der Lage 
ist. Ein einziges Byte ist 
nur zu ändern. Wir tun 
dieses mit “poke 345,10” 
in der Zeile 470. Dadurch 
wird das hier ursprünglich 
ansässige CLC (Clear Car- 
ry) durch ASL (Arithme- 
tik Shift Left) ersetzt. 
Die nachfolgende Addi- 
tion mit ADC (Addiere 
mit Carry) addiert den 
Ascii-Code des gefunde- 
nen Zeichens und den 
nach links herausgeshifte- 
ten Übertrag. Da einige 
unserer Leser beklagten, 
daß das Checksummer- 
listing nachher noch im 
Programmspeicher stehen 
würde, haben wir diesem 
noch mit einem “new” 
abgeholfen. New bzw. 
neu ist nun folgendes. 


10 print“ab” ergibt die 
Prüfsumme<jd> 

10 print”ba” die Prüf- 
summe<jf> 


Sie brauchen den 
Checksummer nicht neu 
einzutippen. Alles, was 
Sie tun müssen, ist, die 
Zeile 470 anzufügen. An 
der Bedienung des Check- 
summers hat sich nichts 
geändert. Die Eingabehin- 
weise bleiben daher wie 
gehabt. 


E!INGABEHINWEISE 


Am rechten Rand jedes 
Listings, jeweils am Ende 
einer Eingabezeile, finden 
Sie zwei Buchstaben zwi- 
schen einem Kleiner- und 
einem Größerzeichen ein- 
geschlossen. Diese dürfen 
Sie nicht mit in Ihr 


Listing eintippen, son- 
dern sie dienen Ihnen zur 
Überprüfung Ihrer Ein- 
gabe. 

Zwischen dem Kleiner- 
und dem Größserzeichen 
am rechten Rand be- 
finden sich zwei Buch- 
staben. Mit einem speziel- 
len Programm können Sie 
beim Eintippen Ihre Ein- 
gabe auf ihre Richtigkeit 
überprüfen. Dieses Pro- 
sramm, der Checksum- 
mer, sorgt nämlich dafür, 
dafs nach erfolgter Zeilen- 
eingabe am linken oberen 
Bildschirmeck zwei Buch- 


ERST SICHERN, DANN 
AUSPROBIEREN 


staben ausgegeben wer- 
den. Wenn diese Buch- 


staben nicht mit den vor-- 


her erwähnten Buchsta- 
ben in unserem Listing 
übereinstimmen, so kön- 
nen Sie davon ausgehen, 
daß Sie sich vertippt 
haben und können sich 
so die Zeile nochmals 
näher ansehen, ob Sie 
Ihren Eingabefehler fin- 
den. Wenn Sie dann alles 
richtig getippt haben, so 
stimmen die Buchstaben 
überein und Sie können 
sich getrost der nächsten 
Zeile zuwenden. 

Das Checksummer- 
listing hat noch keine 
Prüfsummen. Seien Sie 
deshalb besonders auf- 
merksam, daß alles pafit 
und speichern Sie dieses 
Programra unbedingt ab, 
bevor Sie es starten! Bei 
einem Tippfehler würde 
es sich wahrscheinlich auf 
Nimmerwiedersehen ver- 
abschieden und Sie müß- 
ten die ganze Arbeit ver- 
mutlich nochmals ma- 
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chen. Wenn Sie es gestar- 


tet haben, so geschieht 
nichts Besonderes. Der 
Computer meldet sich 


einfach kurz darauf mit 
„READY”, und das war 
auch schon alles. Alles 
sollte nun wie immer 
funktionieren, mit der 
kleinen Ausnahme, daß 
nunmehr nach jeder Ein- 
gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze Basic- 
zeile aus unserem Heft 
her und testen sie aus. 
Wenn die Summen über- 
einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu- 
kunft viel weniger passie- 
ren, als vorher. 


EINER FÜR ALLE, EIN 
ECHTES UNIVERSAL- 
PROGRAMM 


Unseren  Checksummer 
können Sie verwenden, 
ob Sie einen C16/116/ 
Plus4 oder ob Sie einen 
C64 oder gar einen C128 
haben. Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich im 
40-Zeichenmodus sind. 
Nachdem Sie den Check- 
summer geladen und ge- 
startet haben, können Sie 
Ihr Basicprogramm ein- 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, 
Sie können Kürzel ver- 
wenden und, ob Sie ein 
paar Leerzeichen mehr 
oder weniger verwenden, 
der Checksummer läßt 
sich dadurch nicht aus 
der Fassung bringen. Ein 
bißchen Vorsicht sollte 
man allerdings walten 
lassen, wenn man Pro- 
gramme eingetippt hat, 
in denen Peeks und Pokes 
vorkommen. Es wird 
zwar nicht besonders 
häufig vorkommen, aber 
es könnte bisweilen 2-3 


EZ SERVICE 


18 
28 
38 
48 
58 
68 
78 
88 
98 
188 
118 
128 
138 
148 
158 
168 
178 
188 
198 
288 
285 
218 
228 
238 
248 
t 
258 
268 
278 
288 
298 
388 
318 
ıne 
328 
go 
338 
348 
358 
368 
378 
388 
398 
488 
a18 
428 
438 
448 
458 
468 
478 
488 
498 
588 
518 
528 
538 
548 


rem =checksummer==c16 c64 c128== 
rem (p) 85/87 commodore welt == 
rem ====================2=2======= 
rem (c) alfons mittelmeyer =s 
rem == 
rem c16/116/plus4 == 
rem c64 == 
rem c128 (48-zeichen) == 
rem ===========2=====2 2 === ==2=====> 
rem --------------- ---- --- -- - -- 
rem grundroutine (c16) 

rem --------------- ------------ 


data165,859,872,165,8690,972,832 
data886, 137,184,133,068, 184,133 
dataßS9, 152,9072,168,8088, 165,928 
dataß24,181,821,178,024,144,811 
data281,832,248,886, 138,024,113 
data8ß59,234,178,288,177,859,234 
data288,248,169,831,872,138,874 
data974,0974,074,0872,138,841,815 
datad72,169,831,872,162,803,194 
dataß24,185,129,157,88908,812,282 
dataß16,246,184,168,896 
lt=peek( 772) :ht=peek( 773) 
fori=312t0386:readx:pokei,x:nex 


iflt<>124then358 
rem 


rem 
fori=312t0317:pokei,234:next 
fori=325t0326:pokei,234:next 
fori=1to6:readad:readx:pokead,x 

xt 
poke388,4:poke319,1t:poke328,ht 

t0438 
data346,121,347,888,348,882 
data351,185,352,808,353,882 
iflt<>13then438 
rem 


rem 
restore4198:poke332,22 
poke335,23:goto31® 
data313,861,316,062,323,862 


data326,861,347,061,352,861 
poke772,856:poke 773,1 

rem Sen en 
rem ergaenzung 18/87? 

rem --------------- --- 
poke 345, 18:new 

rem ==========2=2====2=========== 
rem = fuer hefte cw 7/87 bis = 
rem = cw 9/87 sowie cwi28 5/87= 
rem = und c1i6 6/87 ist die = 
rem = poke-anweisung in zeile = 
rem = 478 wegzulassen = 
rem ================== === ====== 


schehen, dais nach dem 
Laufenlassen eines Pro- 
grammes weder der 
Checksummer noch sonst 
etwas mehr funktioniert, 
auch wenn dies bisher 
ohne Checksummer nicht 
der Fall gewesen sein 
sollte. Also bitte sichern 
Sie in jedem Falle Ihre 
Programme, bevor Sie sie 
ausprobieren. 

Ein paar Dinge sollten 
Sie noch wissen. Wir 
drucken in unseren Li- 
stings des öfteren Punkte 


statt Leerzeichen. Wenn 
Ihnen nun aber Leer- 
zeichen besser gefallen, 
so liefert der Checksum- 
mer natürlich eine falsche 
Summe. Wenn Sie diese 
Richtigkeit überprü’en 
wollen, so können Sie 
dies tun, indem Sie sie 
zuerst einmal so wie im 
Heft abtippen, und nach- 
her, nachdem Sie sie nach- 
geprüft haben, einfach 
wieder die Punkte durch 
Leerzeichen ersetzen. 

A. Mittelmeyer 


MONITOR. 


CHECKMON 

48 rem checkmon ===============016 <cn> 
58 rem (p) commodore welt team <ke> 
68 rem =======================2=== cnk> 
78 rem (c) by a.mittelmeyer <ag> 
88 rem c16/116/plus4 <ki> 
98 rem ======================22=== (jg> 
188 fori=312t0398:reada <ei> 
118 pokei,a:next <ep> 
128 data 132,218, 188,219,8,132,219 <oe> 
138. data 164,218,76,75,236,281,62 <nk> 
143 data 288,249,165,161,18,181 <jc> 
158 data 162,168,7,18,113,161,136 <ej> 
168 data 16,258, 133,216, 169,38,133 <oh> 
178 data 217,169,62,168,97,288,228 <mk> 
188 dats 198,217,288,218, 168,185 <ai> 
198 data 288,212,281,13,248,4,164. <ha> 
288 data 218,24,96, 169,68, 168,68 <1h> 
218 data 32,61,1,165,216,32,16,251 <ec> 
228 data 169,62,168,5,288,2,169,32 <om> 
238 data 32,75,236,136,288,248,169 <ol> 
248 data 13,288, 176,219,68,228,1 <go> 
258 data 884,56,885,1 <hn> 
268 fori=Ito4:reada:readb:pokea,b <Im> 
278 next:new <ji> 
288 rem ========e=n=d=>e=========== <cc>y 
"CHECKMON"” ist eine unerlaessliche Hil- 


fe zur Eingabe von Maschinenprogrammen. 


Laden und starten Sie 


"Checkmon” und 


gahen dann mittels MONITOR in densel- 


ben. 


Wenn Sie sich nun z.B. mit 


"n1080’ 


einen Speicherbereich ansehen, oder 


Hexzahlen eingeben, 


so erscheint rechts: 


die Pruefsumme anstatt der Asciicodes. 


BLISTING 


Die Gesetze des Marktes und nicht die des Zufalls 
bestimmen dieses Spiel. Preisschwankungen, 
Streiks und Sonstiges kommen nicht von ungefähr. 
In einer tiefgreifenden Wirtschaftssimulation 
erleben Sie, daß der Beruf des Managers 
kein Zuckerschlecken ist. 


Wer wäre nicht gerne einmal Präsident einer eigenen 
Firma? Dieses Programm gibt Ihnen die Möglichkeit 
dazu: Mit 25000 Dollar Startkapital und einer leeren 
Fabrikhalle fangen Sie an und müssen versuchen, mit 
dem Verkauf von Fertigwaren einen möglichst hohen 
Gewinn zu erwirtschaften. Doch der Weg zum großen 
Geld ist nicht leicht: Preisschwankungen, die Gewerk- 
schaft und die Konkurrenz machen Ihnen das Leben 
schwer. 

Nach dem Start des Ladeprogramms gelangen Sie, so- 
bald das Hauptprogramm nachgeladen ist, ins Titel- 
bild. Sie können mit dem Joystick wählen, ob Sie ein 
altes Spiel fortsetzen oder ein neues beginnen wollen. 
Steuern Sie den kleinen Pfeil in das entsprechende 
Kästchen am Bildschirm und drücken Sie die Feuer- 
taste. 

Alle anderen Abfragen im Programm funktionieren ge- 
nauso, nur zur Eingabe von Namen wird die Tastatur 
verwendet. : 

Wenn Sie auf die Frage „Altes Spiel fortsetzen?‘ mit 
NEIN geantwortet haben, müssen Sie die Spieldauer, 
Ihren Namen, den Namen Ihrer Firma sowie ein drei- 
stelliges Firmenkürzel eingeben. Jetzt kann’s los- 
gehen: 

Per Fernschreiber erhalten Sie wichtige Informatio- 
nen wie die An- und Verkaufspreise von Rohstoffen, 
beziehungsweise Fertigwaren. Auch über bestimmte 
Ereignisse werden Sie hier unterrichtet. 

Durch Druck auf den Feuerknopf gelangen Sie zum 
nächsten Programmpunkt: 

Sie erhalten eine Auflistung Ihrer Vermögenswerte 
und können sich — kostenpflichtige — Informatio- 
nen, etwa über die Ausgaben der Konkurrenz für 
Werbung und Forschung oder über den Rationalisie- 
rungsgrad aller sechs Unternehmen beschaffen. 

Beim folgenden Punkt können Sie, sofern Sie Ma- 
schinen, Arbeiter und Rohstoffe besitzen, Fertigwa- 
ren produzieren. Diese sind allerdings immer erst in 
der darauffolgenden Runde fertig. 

Jetzt können Sie Rohstoffe einkaufen und Fertig- 
waren verkaufen. 

Geben Sie dabei die Anzahl der Waren sowie den 
Preis, den Sie zahlen beziehungsweise fordern, ein. 
Der Markt ist begrenzt und der Computer nimmt 

nur die besten Angebote an; Sie könnten also leicht 
leer ausgehen. 


Werden Sie 
anager! 


Die Zahleneingabe geschieht wieder mit dem Joy- 
stick, indem Sie die Kästchen mit „Plus“ beziehungs- 
weise „Minus“ so oft anklicken, bis die Zahl richtig 
eingestellt ist. Daraufhin bestätigen Sie mit dem mitt- 
leren Kästchen. 

Anschließend können Sie Maschinen und Computer 
einkaufen beziehungsweise verkaufen sowie Arbeits- 
kräfte einstellen oder entlassen. Durch den Compu- 
ter sinken die Produktionskosten um die Hälfte. 

Im nächsten Menüpunkt werden die Investitionen für 
Werbung und Forschung, die Lohnhöhen und die Aus- 
gaben für den Exklusiv-Vertrieb festgesetzt. 

Werbung bringt Ihnen einen Wettbewerbsvorteil beim 
Verkauf, Forschung kann zu einer Senkung der Pro- 
duktionskosten, die anfangs bei 1000 Dollar liegen, 
führen. Über Forschungserfolge werden Sie per Te- 
lex informiert. 

Die Vertriebskosten für eine Ware betragen 500 Dol- 
lar, dafür können Sie sie jedoch konkurrenzlos ab- 
setzen. 

Am Ende des Monats werden Bilanz gezogen und die 
Steuern gezahlt. Die Besteuerung ist progressiv, Inve- 
stitionen lassen sich absetzen. Außerdem können 

Sie sich per Menü über die Gewinne der fünf Konkur- 
renzunternehmen sowie über Ihre Fabrikausstattung 
(Inventur) informieren. Hier kann auch das Spiel ab- 
gespeichert oder vorzeitig beendet werden. Mit 
WEITER beginnt der nächste Monat. 

Wenn die Spielzeit abgelaufen ist, wird der Computer 
Ihre Fähigkeiten als Manager beurteilen. Dabei wird 
auch die durchschnittliche Zeit, die Sie für eine Run- 
de benötigt haben, berücksichtigt, denn vor allem 

die Fähigkeit, schnell und richtig zu entscheiden, 
macht einen guten Manager aus. 

Bei Manager handelt es sich um eine gründliche Wirt- 
schaftssimulation. Gewinne, Einkäufe und Ausgaben 
der Konkurrenzfirmen werden nicht zufällig ermit- 
telt, sondern der Computer übernimmt die Leitung 
dieser Betriebe. Auch die Preisschwankungen folgen 
den Gesetzen des Marktes und nicht denen des Zu- 
fallsgenerators. Streiks kommen nicht von ungefähr. 
Die Gewerkschaft verwaltet einen Streikfonds, aus 
dem die Arbeiter bezahlt werden. Details wie das 
Image der Firma werden ebenfalls berücksichtigt. 

Das Programm besteht aus zwei Teilen: dem Lade- 
programm mit den MS-Unterroutinen, die den Zei- 


“ chensatz enthalten, und dem Hauptprogramm. Das 


Nachladen erfolgt automatisch. Der MS-Teil verwal- 
tet auch die Pseudo-Softsprites sowie die Windows. 
Zu diesem Zweck wurde das BASIC-Ende ($37) her- 
untergesetzt. 

Die einzelnen Startadressen der Routinen werden am 
Programmbeginn Variablen (UO bis U9) zugewiesen, 
ihre Funktion ist dort dokumentiert. DO 
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10 rem manager u 57N op$=chr&(l 127) +chr&l 168) +le$+le 

28 rem (p) commodore welt team <ho> $+dw$+chr$( 161) +chr$( 162) +up$ 20> 
30 rem ========-- oe 22222222000 eng> 588 Fori=Btos <po> 
48 rem (c} by bernhard oemer <jl> 599 g1$=g1$+chr$l 167+1) <od> 
58 rem <pd> 60 g?$=g?$tchr$l 173+1) ©. <no> 
68 rem <ah> 618 next <ek> 
78 rem basic v3.5 <nl> 62% dimma$(?) <id> 
88 rem plus4 (c16/116 + 64kb) <fd> 538 fori=dto? <hk> 
IM rem ==========2=0=2== 20202020 Cjg> 648 mal 2-1) =chr$( 115+1*4) +chr$( 11 

100 : <ac> 6+1#4) +1le$+le$+dwS+tchr$( 117+i*4) +c 

118 colori,2 <an> hr$( 116+1#4) +tup$ <ih> 
128 senelr <ni> 658 next <jl> 
130 : <dp> 668 : <gh> 
148 rem unterprogramme <af> 678 dimgr$t( 7) <ep> 
159 : <gh> 688 fFori=179t0185 <pj? 
160 uBß=4334 :rem sprite <jd> 698 gr$(li-178) =chr$( i)+chr$(i)+chr 

178 u1=4577 :rem delete <pf> $(i) <tm> 
188 u2=4773 :rem fast <hm> 708 next <pp> 
190 u3=4782 :rem slow <mc> 718 : <ml> 
208 u4=4791 :rem sleep <hn> 728 dimi,x,y,z,a,b,c,d,e,a$,b$,c$ <dg> 
219 u5=4863 :rem screen <fa> 7308 dimna$(5) ,Fb$L5) ,rwi5),fwl5) ‚m 

220 u6=5811 :rem move <bn> a(5,2),cp(5) ‚ab(5),gd(5),sc(5),Ihtl 

?38 u7=5161 :rem test <ho> 5),pk(5),ia(5) <nf> 
2AU uB-5234 :rem wait <ah> 748 dimik(5) ,‚ig(5),vg(5),sk(5) ‚gwl 

?P58 u9=5257 :rem frame <im> 5) ‚we(5) ,fo(5) ‚ei(5) ‚e2(5) ,e3(5),e 

26ER : <ee> A{5),x{5),y(05) <md> 
270 sysu? <mp> 758 dimrw,fw,al,dg,da,dp,dl,dd,dk, 

280 : <gm> dm,mo,t1,72,f3 <kh> 
290 rem variablendefinition <cj? 768 vw%=32:0w=25:FWw%=32: fw=24:am=2 

3B8 : <je> Q:rp=450:fp=40a8 <bg> 
319 ho$=chr$( 19) :rem home <hp> 778 kp=50ßB:az=5 <eo? 
32R c1$=chr$( 147) :rem clear <kf> 788 : Aue 
339 up$=chr$( 145) :rem up <pa> 798 rem titelbild <mi> 
348 dw$=chr$( 17) :rem down <ok> 800 : <ia> 
358 le$=chr${ 157) :rem left <ka> 818 printec$"n"ec$"m"chr$( 142) chr$ 

360 ri$=chr$( 29) :rem right xen> {8) <je> 
379 eu$=chr${?7) :rem escape <je> 820 sysu9,0,0,39,24,2 <hf> 
389 rußschr$( 18) :rem revers on <kl> 838 print <b1> 
398 ro$=chr$( 146) :rem revers off <mm> 848 print” $ s 3 598 

4A rt$=echr$( 13) :rem return <ma?> Li Ze 3 2 Ze I 7 Zu <Ik> 
210 bK$=chr$( 144) :rem black <ag> 858 print” $$ $$ $$I5 5 5 HE $ 

428 wt$=chr$(5) :rem white <dk> $5$ 55898577 <hg> 
438 de$=chr${( 28) :rem delete <hce> 86B print” 935955 59559 5% 

aan : <kn> s.$ $" <ld> 
458 ul$=-rv$ <ii> 878 print" 855 $I$E SEFF FHHF H 

468 fori=1t048 <ap> Fr vr De <ai> 
478 Li$=1i$+chr$( 179) <kb> DBU print” $ EEE 5 E 

488 ul$=ul$+chr$l 185) <hg> ‚se. =: <gl> 
A908 next <fj> 898 print” $ $5 $8 955 9% 

saR zz$="abcedetghijkimnopgrstuvwxy 88 s $" <df> 
z-E. 1234567890" <nh> see print” $ 995 98595% 9% 

518 : <dj> $$ HH $ $" <ha> 
528 rw$=chr$( 163) :fw$=chr$( 164) <eg> 918 print:print <aa> 
538 fori=1t015 <gk> 928 print" eine wirtschaftssimu 

540 rp$erp$trw$:tp$=rp$+Ffw$ <pp> lation von” <ki> 
559 next <nc> 938 print:print" bernah 

568 ab$=chrätl 165) +1e$+dw$+chr$l 166 rd oemer” “08 
}+up$ <dm> 949 sysu9,6,15,33,22,2 <fk> 
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358 af-"altes spiel fortsetzen ?": 


x=26:gosub243# 
968 sysu9,12,19,17,21,8:printru$” 
a 


978 sysu9,22,19,27,219,8:printrv$”n 
ein” 

988 sysu@,48,128 

998 sysul 

1800 sysu3 

1818 sysu6 

1828 sysu?7,12,19,17,21,1888 :rem j 
a 

1838 sysu?,22,19,27,21,1748 :rem n 
ein 


1848 goto1818 
1858 : 

1868 rem laden 
1878 : 


1888 sysu9,12,19,17,21,1:print" ja 


1898 sysu4,48 

1188 sysuY9,6,15,33,22,2:printc1$; 
1118 a$="speichermedium ?":x=26:g0 
sub2438 

1128 sysu9, 12,19,17,21,@:printru$" 
tape” 

1138 sysu9,22,19,27,21,8:printrv$” 
disk" 

1148 sysu6 

1158 sysu?,12,19,17,21,1188 :rem t 
ape 

1168 sysu7,22,19,27,21,1198 :rem d 
isk 

1178 goto1148 

1188 c=1:b=8:sysu9, 12,19,17,21,1:p 
rint"tape”:goto1248 

1198 c=8:b=8:sysu9,22,19,27,21,1:p 
rint"”disk"”. 

1288 sysu4,4B 

1218 sysu9,6,15,33,22,2:printcel$; 
1228 a$="name der datei ?":x=26:go 
sub2438 

1238 print:print 

1248 print” Bi 

i258 x=16:gosub2278 

1268 sysu4,28 

1278 sysu9,6,15,33,22,2:printcl$; 
1288 printlett$( 1i$,26) 

1298 printrv$"”legen sie die "; 
1388 ifc=1thenprint”kassette”;:els 
eprint"diskette"; 

1318 print” ein” 

1328 sysu9, 17,19,22,21,8:printrv$" 
ok "” 

1338 sysu6 

1348 sysu?,17,19,22,21,1368 

1358 goto133@ 

1368 sysu9, 17,19,22,21,1:print” ok 


1378 poke154,8 

1388 printbk$; 

1398 openi,c,b,a$:printuwt$; 

1489 gosub32B9: ifxthen1668 

1418 sysu9,6,15,33,22,2:scnclr 
1420 a$=" loading... ":x=26:gosub2 
438 

1438 print 

1449 ifc=ithensysu4, 188 

1458 x=0 

1468 fori=@to5 

1478 input#1,na$(i),rb$li),rw(i),f 
w(i),ma(i,®8) ,‚ma(i,1),mali,2) 

1488 gosub32UW%:ifxthen 1538 

1498 input#1,cp(i),ab(i),gd(i),sc( 
i),Ihli),pkli),iali),ikli),igli) 
1508 gosub3?AB: ifxthen 1538 

1512 input#1,vgli),sk(i),weli),tol 
i),e1i(i),e2(i) ,e3(i) ,e4a(i) 

1528 gosub32BB 

1538 itxthen 1668 

1548 ifxtheni=5 

1558 next 

1568 ifxthen1660 

1578 input#1,rp,fp,kp,rw,fw,rw%, tw 
%,na$,da,da$ 

1588 gosub3288: ifxthen 1668 

1598 input#1,gr,gtf,f1,f2,f3,mo,ti$ 
1688 gosub3288:ifxthen 1660 

1618 close 

1629 gosub3?@B:ifxthen1660 

1638 scnelr:a$=" fertig ":x=26:gos 
ub?438 

1648 sysu4, 188 

1658 goto3328 

1668 closei 

1678 sysu9,6,15,33,22,2:scncelr 
1688 »$="ladefehler" :x=26:gosub243 
8 

1698 sysu4, 288 

1788 run 

1718 : 

1728 rem neustart 

1738 : 

1748 sysu9,22,19,27,21,1:print"nei 
n" 

1758 sysu4,48 

1768 sysu9,6,15,33,22,2:printel$; 
1778 a$="ihr name 2?" :x=26:gosub243 
8 

1788 print:print:print" 
gosub2270 

1798. na$=a$ 

1808 sysu4,38 

1818 printel$; 

18208 3$="firmenname 7":x=26:gosub? 
438 


>"; :x=12: 


| MANAGER a Le | 


14389 print:print:print"” >";:x=18: 
gosub2278 

1848 c$=a$ 

1850 sysud, 38 

1868 printcl$; 

1894 a$="firmenkuertzel ?7"”:x=26:go 
sub2438 

1888 print:print:print" >";: 
osub2278:b$=a$ 

1899 sysu4,3® 

1988 scnelr 

1918 a$="spieldauer ?7":x=26:gosub2 
438 
1928 


1938 
+" 
1948 
1958 
$ 
1968 
1978 
1988 
1998 
288% 
2818 


sysu9,12,19,14,21,8:printrv$” 
sysu9,25,19,27,21,8:printrv$" 


a$="2:08" 
sysu9, 17,19,22,21,8:printrv$a 


sysu6 

sysu?,12,19,14,21,28018 
sysu7,25,19,27,21,2878 
sysu?7,17,19,22,21,2128 
g0t01968 

ifa$="8:15"then 196% 

2020 x=vallright$(a$,2)) 

2B3B x=x-15:ifx=-15thenx=45:3$=chr 
$lasc[l a$)-1)+":45":g0t01958 

28048 a$=left$la$,2) 

2950 ifxthenaf=a$+right$(lstr$(x),2 
}:elsea$=-a$+"89” 

2060 g0t01958 

2078 ifa$="9:45"then1968 

2088 x=vallright$la$,2)) 

2098 x=x+15:ifx=68thenx=B:a$=chr$t 
asc[la$) +1)+":09":g0oto1958 

2188 a$=left$(la$,2) +right$(lstr$(x) 
‚2) 
2118 
2128 


goto1958 
sysu9,17,19,22,21,1:printa$ 
2138 sysu4,35 

2140 ab="8"+lerft$la$,1)+tright$(la$, 
2) +" ma” 

2158 ti$=a$:da=ti:da$=a$ 

2168 ti$-"OaBnan“ 

2178 restore 15958 

2188 fori=Btos 

2198 readna$(i),fb$li),rwli),fwli) 
‚nali,8) ,mali,1),mali,2),cpli),abt 
i),gd(i) 

2288 readsc(i),ihli),pk(i),iali),i 
kli),igli),vg(li),ei(i),e2(i),e3(i) 
‚e4ati) 

2218 next 

2228 na$l 8} =c$:fb$L 8) =right$l” = 
+b$,3) 

2230 g0t03320 


<dp> 
<kn> 
<ea> 
<mb> 


<mc> 


<cn> 
<dk> 
<mo> 


<ce> 
<ip> 


<fg> 
<cp> 


<pt> 
<ng> 
<mm> 
<hg> 
<do> 
<im> 
<fa> 
<hc> 


<gb> 
<gi> 


<oc> 
<cd> 
<po> 
<do> 


<hc> 


<ii> 
<fi> 
<eo> 
<id> 


<mi> 
<ob> 
<ad> 
<em> 
<le> 


<cb> 


<1b> 
<nh> 


<jd> 
<fl> 


11? 


22A8 : 
22580 rem 
2260 : 
2270 a$="" 
2288 getkeyb$ 

2298 ifinstr(zz$,b$) andlen( a$) <xth 
enprintb$; :a$=a$+b$:goto2288 

2388 itb$=de$andlen( a$) thenprintb$ 
;:a$=left$la$, 1len(5$) -1) :goto2288 
2318 ifb$=rt$thenreturn 

2328 goto2288 

2330 : 

23480 
2358 : 
2368 a$=str$ld) +c$:d=d+intl rnd( 1) * 
2+1.5) 

2378 printa$ 

2388 print 

2398 return 

2408 : 
2418 
2A2B : 
2438 printro$spel (x-1lenla$))/2)l1ef 
t$C1i$,len(a$)) 

2448 printspel(x-lenla$))/2)rv$a$ 
2458 return 

2460 : 
2478 
2AB8 
2498 


input 


rem datum 


rem ask 


rem print 


print" ";:vol6 

25808 fori=itolen(a$) 

2518 ifmid$(a$,i,1)<>" "thensysuß: 
sound3, 889,2 

2528 ifpeek( 1277) then2528 


2538 printmid$(a$,i1,1); 

2548 next 

2558 print 

2568 return 

2578 

2588 rem ja-nein abfrage 

2598 

2648 readx 

2618 sysu5,®,1:printec$"m"; 

2628 sysu9,6,16-x,33,22,2:scnelr 
2638 sysu9,10,19,15,21,8:printrv$” 


ja” 
2648 sysu9,24,19,29,21,8:printrv$” 
nein" 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
ja 

2738 


sysu9,6,16-x,33,22,2 
print" "lert$( 1i$,24) 
fori=Itox 

reada$ 

print” "rv$a$ 

next 

sysu6 
sysu7,18,19,15,21,275@ :rem 


sysu?,24,19,29,21,2798 :rem 


<ml> 
<mn> 
<pd> 
<cp? 
<kc> 


<fm> 


<me> 
<dh> 
<lg> 
<ia> 
<ma> 
<ki> 


<ne> 
<gd> 
<ed> 
<em> 
<am?> 
<jo> 
<de> 


<hc> 
<km> 
<mf> 
<it> 
<hl> 
<kn> 
<be> 
<jh> 


<em> 
<bk> 
<ge> 
<en> 
<ji> 
<kc> 
<gc> 
<eg> 
<ik> 
<cp> 
<bm> 
<kj> 


<jp> 


<an> 
<pp> 
<ic> 
<ke> 
<ni> 
<df> 
<kp> 
<fo> 


<jg? 
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nein 

2738 goto2718 

2758 sysu9, 18,19, 15,21,1:print” ja 
"ıx=1 


2768 sysu4,48 

2778 sysu5,1,8 

2788 return 

2798 sysu9,24,19,29,21,1:print"nei 


n":ıx=@ 

284% got 02768 
2810 : 

2828 rem balken 
2838 


284 z=z+1:i>=1 
2858 ifz<8then2898 
2868 fori=itointt( z/8} 


2878 char,x,y+ti-i,rv$+" "+ro$ 
2888 next 

2898 char,x,y+1-i,gr$(z-int(z/B)*8 
} 


299 return 

2948 readb:ce=2*#intl ( len( str$(ly}) -( 
b>9))/2+.4) 

2928 sysu5,8,1:printec$"m”; 

2939 sysu9,6,16-b-(b>9)*10,33,22,2 
:senelr 

2948 print” "left$( 1i$,24) 

2958 fori=1tob+(b>9)*18 

2968 reada$:print"” "rv$a$ 

2978 next 

2988 a$=letftgl "AR" ‚c) :ifb>9t 
henmid$(5$,1,1)="$"” 

2998 sysu9,9,19,11,21,8:printrv$"”- 


3a889 
4" 
3818 
3828 
3038 
3848 
3858 
3u68 
(4) 
3878 
2888 
3898 
3188 
3178 
3128 
3138 
3148 
3158 
3168 
3178 : 
3188 rem tehlerkontrolle 
3198 : 

3288 x=8 

3218 ifc=8thenifdsthenx=1 


sysu9,28,19,3@8,21,@:printrv$” 


sysu9, 19-c/2,19,28+c/2,21,8 
printusingrv$ta$;a 

sysu6 

sysu7,9,19,11,21,3888 
sysu7,28,19,30,21,3188 
sysu7,19-c/2,19,2#+c/?,21,312 


g0t03838 

ifa-z>=xthena=a-z 

goto3828 

ifatz<=ythena=satz 

goto3B2B 

sysu9, 19-0/2,19,28+02/2,21,1 
printusinga$;a 

sysu4,48 

sysu5,1,8 

return 


<pn? 
<gb> 


<bj> 
<ke> 
<ga> 
<fl> 


<em> 
<ok> 
<ec>? 
<ch> 
<gm> 
<cd> 
<otf> 
<nı> 
<cl> 
<bi> 


<ee> 
<em> 


<ci> 
<kf> 


<kj> 
<ag> 
<k1> 
<kf> 
<mn> 


<pm> 
<ne> 


<gk> 
<fl> 
<hj> 
<ge> 
<dh> 
<go> 


<jb> 
<kg> 
<fa> 
<el> 
<3a0> 
<mf> 
<sag> 
<kg> 
<ah> 
<cm> 
<fg> 
<bg> 
<ch> 
<dp> 
<fj> 
<ib> 
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322% 

3238 

3249 

3258 

3268 

3278 

3288 

3298 

3388 

3318 

3328 

3338 

3348 

:df=8 
3358 fori=Btoaz 

3360 gwli)=-scli)*.B5:dg=dgtgd(li)- 
scli}:gw=gw+twe(i) :df=df+foli) 

337@ db=db+tab(i) :dp=dp+ma(i,®) +mal 
i1,1)*2+ma(i,2)*3:d1=dl+1hli) :dk=dk 
+pkl(i) 

3388 next 

3398 ifam<dbthenam=db:al=8:goto343 
[%) 

3400 al=am-db 

3419 ifol<zam/Sthenam=am+1l:al=al+1 

3429 ifam/al<4andal>?2thenam=am-1:a 
l=-al-1 

3438 x=az+tl:dg=dg/x:db=db/x:dp=dp/ 
x:dl=dl/x:dk=dk/x:df=df/x 

3448 kp=kp-al*508 

3450 fori=-Btosz 

3468 ifsk[(i)thenkp=kp-880@*ab[i):el 
sekp=kp+f3*#ab(i) 

3478 next 

3488 ifkp<@thenfori=#Btoaz:sk{i)=®: 
next:goto3858 

3498 F3=188: itfkp>180B00dthenf3=88:i 
fkp>25988@thenf3=5@ 

3508 c$="" 

3518 fori=dtoaz 

3528 y-- 

3538 forx=Btoaz 

3548 ifinstr(c$,chr${(x)}=Bandih( x) 
>ytheny=1h(x):z=x 

3558 next 

3568 c$=c$+chr$( z) 

3578 next 

3588 fori=@toaz 

3598 x(i)=ascl right$(c$,i+1)) 

3688 next 

3618 dd=ti/da:dm=int(mo/dd+.5) :ift 
i<588thendm=int( da/2998) 

3628 e=int( kp/888) -al*5 

3638. fori-Btoaz 

3648 z=x(i):ifkp<al*58Borab( z)=Bor 
{1h{z)>=sk( z)andsk( z) <>) thensk( z) 
=B:g0ot0383®B 

3658 c=malz,®8)+malz,1)*2+malz,2)*3 


ifc=1thenifstthenx=1 
return 


rem warten 


if joy( 2) =Bthen3278 
return 


rem hauptprogramm 
sysu2 


mo=mo+1 
dg=@:db=B:dp=B:d1=B:dk=B:gw=d 
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36568 
ung 
3678 
aft 
3688 
sten 
3698 
zen 
3788 
3 
3718 
3728 
3738 
3748 
3758 
3768 
3778 
3788 
3798 
3828 
3818 
3828 
3838 
3848 
3858 
3868 


a=ce/ablz) :rem rationalisier 


b=e/dp 


c=pk(z)/dk :rem produktionsko 
d=(gdlz)-sc(z))/dg :rem finan 
x=( d#3+c-b#2) /a:ifx<.3thenx=. 


y=-S+int( sgqr( dm) +5) #x*( 1.5-dd) 
a=-5@#int( d1/58+1) 

ifa<lhl z)thensk( z) =@8:g0t03838 
ifa<lhl z) +18@thena=ihl z)+188 
ifialz)<.?thena=sa+5® 

ifsk( z)then381® 
ife-y*abl z) <ßthen3838 
ere-y*abl z) 

sk(z)=a 

g0t03838 
ife<ßthensk( z) =8:g0t03838 
e=-e-y*abl( z) +5 

next 

sk=B 

fori=-dtosz 
ifskli)theniali)=iali)*.95:ig 


(i)=1-(1-igli))*.98:sk=sk+t1 


3878 


iflhl i)>ditheniali)=1-(1-iali 


J))/Eihli)/dl):elseiali)-iali)*([ int 
i)/dl) 


3888 


iflih(i)>ditheniali)=iali)+[1- 


iali)J)*{(1-di1/1hli)):elseiali)>-iali 
J*ihli)/dl 


3898 
3988 
+rw% 
3918 
3928 
3938 
3948 
3958 
3968 
+fw% 
3978 
3988 
3998 
amuaa 
auım 
4828 
4838 
4848 
4858 
4068 
38 

4878 
aaBB 
4898 


next 
gersgertrw:ifrwrwäthengr=gr-rw 


x=gr/mo 

yzint( 258*(rw+tx)/rw%)) 
rp=int(rp+((y-rp)/3)+.5) 
rwA=rw%tl rwA>rw) -(rwäcrw-2) 
tw%=fw%tint( sgr( gw/ 1088) ) 
ersgf+ttw:itfw>fwfthengf=gt-Fw 


x=gr/mo 

y-int( 185B0*( FwA/ltw+fw+tx))) 
tp=int( Fp+L(y-Fp) /3)+.5) 
FWh=FwWÄrl FW%>Fw) -[ Fw%<tw-3) 
vwerwä:twetw% 


rem meldungen 


sysu9,8,8,39,24,2:printc1$; 
a$=" te lex ":x=38:gosub24 


print:printec$"t"ec$"1" 
sysu3 
a=int((mo-1) /12) :b=mo-a*12:a= 


3+1988 


:rem produktionskr 


<a0> 
<gk> 
<jo> 


<od> 


<pg> 
<hi> 
<di> 
<jp> 
<hi> 
<kl> 
<eg> 
<nc> 
<br> 
<ae> 
<he> 
<ij? 
<lp> 
<ik> 
<ei> 
<bn> 


<bk> 


<fo> 


<pn> 
<ae> 


<ed> 
<hk> 
<lg> 
<gi> 
<ea> 
<tn> 


<na> 
<fi> 
<ka> 
<ml> 
<nm> 
<ip> 
<mb> 
<ij> 
<oj? 
<be> 


<nb> 
<dd> 


<fe> 


<gb> 
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41m 
4118 
4128 
4138 
4148 
4158 
4168 
reik 
4178 
4188 


a$=str$la) zmid$la$, 1,1)="." 
b$=str$(b) :mid$(b$,1,1)="." 
c$=b$+a$:d=1 
ifsk( 9) -@then4348 
ifsk=az+1then4258 

gosub2368 

a$=na$( @)+"-belegschaft im st 
":gosub?498 

print 

a$="die gewerkschaft verlangt 


eine” :gosub2498 


4198 


a$="anpassung der loehne von 


derzeit":gosub?2498 


4288 a$="$"+str$lihlB))+" auf $"+s 


tr$( 


4219 ifialß)<.Ithena$="mit gewalts 


smen 


4228 itia(l®)<.1Ithena$="rechen.":go 


sk(B))+”".":gosub2498 


aktionen ist zu”:g0osub2498 


sub2498 


4238 
4248 
4258 
4268 
4278 
4280 


print:print 

goto4348 

gosub2368 
a$="generalstreik":gosub2498 
print 

a$="dem aufruft der gewerkscha 


ft, die”:gosub2498 


4298 
gten 
4388 


a$="arbeit niederzulegen, fol 
alle":gosub2498 
a$=-"arbeiter des landes.":gos 


ub2498 


4318 


a$="von "+na$(B)+" fordert ma 


n eine"”:gosub?498 


4328 


a$="lohnerhoehung auf $”+str$ 


(sk(8))+".":gosub2498 


4338 
4348 
4358 


print:print:goto4448 
itfsk+( sk( 8) <>4) =Bthen4448 
gosub2368 


4368 a$="streiks in anderen untern 
ehmen” :gosub2498 

4378 print 

4388 a$="gestreikt wird momentan b 
ei:”":gosub2498 

4398 3$="":fori=itoaz 

4488 ifsk(i)thena$=a$tnagli)+", " 
4418 next 

4428 a$=left$la$,lenla$)-2)+".":go 
sub2499 

4438 print:print 


aaa0 
4450 
4468 
4478 
4480 
498 

4498 
4508 


iffithenf1=f1-1:g0t04618 
ifsk{8)=Borial®)>.89then4618 
ifrnd( 1) #ial 8)>.85then4618 
gosub2368 
a$="sachbeschaedigung” :gosub? 


print 
a$="unbekannte taeter beschae 


digten"” :gosub?2498 


4518 


a$="waehrend einer streikdemo 
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nstration”:gosub2498 

4528 a$="eine maschine.” :gosub2498 
4538 x=1888*int(rnd( 8) *5+3) 

4548 a$="der schaden betraegt $"”+s 
tr$(x)+".":gosub2498 

4558 print:print 

4568 gw(B)=gw() -x 

4578 gosub3278 

4588 restore 15378: gosub?26A8 

4598 ifx=Bthen4618 

4688 Fi=18:ial®)=-ial®)*.6:iglM)=ig 

(8) +L1-iglB))*.2 

4618 ifrnd(B)*Fo(lB) *(pk(B) -280) <50 
BBBBorpk( 8) <38Borrnd( 1)<.F7orsklB)t 
hen4728 

4628 gosub236B 

4638 a$="erfolg der forschungsabte 
ilung”:gosub2449® 

4648 print 

4658 3$="durch langwierige forschu 
ng ist es":gosub2498 

4668 a$="abteilung Fuer planung, f 
orschung” :gosub2498 

4678 a$="und entwicklung gelungen, 
die kosten" :gosub2498 

4688 a$="fuer die produnktion um $ 
58 pro ware" :gosub2498 

4698 a$="auf $"+str$(pklB)-5B)+"” z 
u senken.”:gosub2498 

4788 print:print 

4718 pk(B)=pk( 8) -58 

4728 ifsk(B)orrnd( 1) >ab( 8) /38orrnd 
(8)<.Bormo<8then4868 

4738 c=int(rnd( 8) *3) 

4748 ifmal@,c)=@®then4868 

4758 ma(B,c)=ma(l®,c)-1 

4768 gosub2368 

4778 a$="maschinenschaden” :gosub24A 
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4789 print 

479% a$="eine maschine des typs "+ 

chr$(65+c)+”", welche” :gosub2498 

4888 a$=chr$(49+c)+" rohware" 

4818 ifcthena$=a$+"n“ 

4820 a$=a$+" erzeugt ist nicht meh 
r":gosub2498 

4838 a$="funktionsfaehig.":gosub24 

98 

4848 a$="eine reperatur ist nicht 

rentabel.”:gosub2498 

4858 print:print 

4868 ifrnd(B)<.98orrw( 8) <5then4958 

48780 gosub2368 

488% a$="brand im rohwarenlager":g 

osub2498 

4898 print 

4988 5$="heute nacht brannte das r 

ohwarendepot” :gosub2498 


<hf> 


<eh> 
<ko> 


<bh> 
<co> 
<pb> 
<ed> 
<il> 
<ka> 


<an? 
<eb> 
<jh> 


<ca> 
<pn?> 


<pc> 
<bk> 
<ai> 
<pd> 
<ba> 
<ob> 
<df> 
<hg> 
<nl> 
<bh> 
<jj? 


<ce> 


<ok> 
<bg> 


<dh> 
<lc> 
<fl> 
<bp> 
<je> 
<ep> 
<jd> 
<lg> 
<pg> 


<en> 
<pd> 


<mk> 


A918 af="voellig aus.":gosub2498 

4928 a$="der schaden betraegt rund 
$"+str$l 1BUA*intl(rw(lB)*rp) /108B+ 
.5))+".":gosub2498 

4938 rw( 8) =8 

4948 print:print 

4958 ifrnd( B) <.98orfw( 8) <5then51598 

4960 gosuh2368 

4970 a$="brand im fertigwarenlaäger 
":gosub2498 

498% print 

4998 a$="von den Flammen wurde heu 
te frueh das”:gosub2498 

5a08 a$="fertigwaren-magazin heimg 

esucht .":gosub2498 

5818 ifrnd( 1) <.8then5#4B 

5928 a$="alle waren wurden. vernich 
tet." :gosub2498 

5838 c=tw(B) :goto512% 

5848 c=int(rnd(B) *FwlB) +3) :ifc+2>F 
wthen5828 

5858 ifc<5then5898 

5868 a$="von den”+str$(fwlB))+" wa 
ren konnten"+str$( fw(B) -c) :gosub24 
9 

5979 a$="gerettet werden.":gosub24 
98 

5888 goto5128 

5898 a$="die ware konnte gerettet 
werden." :gosub2498 

5188 print:print 

5118 goto5158 

5128 a$="der schaden betraegt rund 
$"+str$l 1800*int((c*fp) /1000+.5)) 
+”.":gosub2498 

5138 print:print 

5148 twlB)=fwlB)-c 

5158 c=rnd( 1) *we(B} 

5168 itfc<5BWBorrnd(B)<.8then537K 
5178 c=int( sqr(c/258)) :b=1@8*int( f 
p/188+2) :ifc>28thene=28 

5188 gosub2368 

5198 a$="auftrag” :gosub2498 

5288 print 

5238 a$="ein kunde erteilt einen a 
uftrag”":gosub2498 

5228 a$="ueber”+str({c)+"” waren und 
bietet":gosub2498 

5238 3$="$"+str$(b)+" bei sofortig 
er lieferung.":gosub2498 

5248 iffwl2)>=cthen531B 

5258 a$=na$(8)+" kann momentan nic 
ht liefern.” :gosub2498 

5268 a$="der auftrag wurde an eine 
andere” :gosub2490 

5278 a$="firma vergeben.":gosub249 
1) 

5288 print:print 


zeo? 


<mf> 
<eg> 
<gk> 
<ef> 
<cj? 


<1ld> 
<ki> 


<mt> 


<gj? 
<mg? 


<00> 
<kn> 


<po> 
<no> 


zik> 


<am? 
<ae> 


<bp> 


<gp> 
<lo> 


<ep> 
<ge> 
<mc?> 
<jb> 
<bp> 


<ni> 
<mn> 
<pk> 
<gb> 
<li> 


<ad> 


<pg> 
<fi> 


<ld> 
<pm> 


<nh> 
<bf> 
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5298 iglB)-igla)*.9:ikl@)-ikl8)*.7 <pd> 


5300 goto5378 <lc> 
5318 print:print <ag> 
5328 gosub3278 <ef> 
5338 restore 154198:gosub26K8 <ni> 
5348 ifx=Bthen5298 <aj? 
5358 iklB)=ikl BO) + 1-ikl0))*.2 <pf> 
5368 Fw=fw-c:fwlB)=twlB)-c:gwlB)=g 
w(B)+b <bb> 
5378 ifrnd(B)*liglB) F2)<.25orrndt 1 
)<.9orig( 1) <.6ormo<3thenS58# <hi> 
5380 gosub236®:c=1088*int( rnd( B) *2 
9+28) <gc> 
5398 a$="sonderangebnt":gosub2498 <eo> 
saua print <pd> 
5418 a$="ein geschaettstreund biet 

et ihnen" :gosub2498 <hi> 
5428 a$="eine maschine des typs b 

um nur" :gosub2498 <je> 
5a3B a$="$”+str$(c)+"an.":gosub249 

8 <gt> 
5448 print:print <bk> 
5458 gosub3279 <1f> 
5468 restore 15518: gosub2648 <pa> 
5478 ifx=Bthen5588 <ae> 
5488 gwl 8) =gw(B)-c:mal®,B)=malß,®) 

+1 <cb> 
5498 igl®)=igl 8) + 1-iglB))*.3 <kp> 
558 itfrnd( 1)<.95ormo<7orgd( 8) <588 
@then558® <mb> 
5510 gusub2368:c=1488*int( rnd( 1)*1 

8+5)} <mh> 
5528 a$="steuernachzahlung" :gosub2 

498 <pn> 
5530 print <pi> 
5540 a$="sie muessen $"+str$(le)+"” 
vermoegensstauer":gosub2498 <ob> 
5558 aß="nachzahlen.”:gosub2498 <pk> 
5568 gwlB)=gwlB)-c <ec> 
5578 print:print <co? 
5588 ifrnd(B) *sc( 8) <3UABBorrndt 1)< 
.95then5668 <tfh> 
5598 gosub2368:c=188@*int(rnd( 1) #5 

+3) <im> 
5688 a$="subventionen":gosub2498 <kc> 
S61B print <j1> 
56?8 a$="der staat hat "+na$l 8) +" 
$"+str$(lc) :gosub2498 <li> 
5630 a$="subventionen bewilligt.": 
gosub2494 : <bc> 
5648 gw(B)=gwlB)+tc <dce> 
5658 print:print <ld> 
5668 iflh(8)<dl-SBandrnd( 1)<.3anda 

b{B®) >1then5688 <ki> 


5678 ifrend( 8) *(1-ialB)*ialB))<. Tor 
rndl 1})<.8oral>am/Aorab( ß) <3orsk( B) 
then5754 <pc>? 
5688 gosub2I6# <ik> 
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5694 af="kuendigung” :gasub2498 
5708 print 

5718 a$="einer ihrer arbeiter kuen 
digt seine" :gosub2498 

5728 a$="stellung bei "+na$lA)+” + 
ristlos.":gosub2498 

5738 al=al+1:abl B)=ab(B) -1 

5748 print:print 

575a ifal/am*ialA}*rndl 1)<.82orihl 

@) <d1+5B8orrnd( 1) <.Bthen5868 

5768 gosub236# 

5778 a$="stellengesuch"” :gosub2498 

5788 print 

5798 a$="ein bereits eingeschulter 
arbeiter" :gosub2498 

5808 3$="hat sich um eine anstellu 
ng beworben." :gosub2498 

5818 print:print 

5828 gosub3278 

5838 restore 15549: gosub2608 

5848 ifx=BthenialB)=iald)*.98:goto 

5868 

5858 ab 8} =abl B)+1:ialB) -ial B) + I- 
ia(8))*.85 

5868 ifrnd( 1) HiglB)<.Sorrnd(B)<.95 

orrw( 8) >58then6@18 

5878 ce=intlrnd( 1) *(mat+t5) +18) 

5888 itc+trw(B)>6Bthenc=68-rw(B) 

5898 b=1AW*int(lc*rp/11B) 

5988 gosub2368 

5918 a$="sonderangebot” :gosub2498 

5928 print 

5938 a$="ein geschaeftsfreund biet 

et ihnen"+str$(c) :gosub2498 

5948 a$="rohwaren um $”+str$(b)+” 

an.":gosub2499 

5958 print:print 

5968 gosub3278 

5978 restore 15578: gosub26BB 

5988 ifx=@thenig(@)=igl)*.99:goto 

6818 

5998 rw(B) =rwlB)+c:gw(B) =gwlB) -b 

6808 iglB)=iglB)+LI-igl8))*.95 

EHI iFfpklB)*rndlB) *LiglB) +1) <6ABo 

rpk( 8) <358orrnd( 1) <.98then6158 

6828 gosub236B:c=188B*int(rnd( 1)*4 

+4088/(pkl 8) -180) +2) 

6438 a$="angebot von forschungserg 

ebnissen" :gosub2498 

6848 print - 

6058 a$="ein Forschungsinstitut bi 

etet ihnen" :gosub2498 

Ka68 a$="tFuer $”+str$(c)+"” die pla 

ene fuer ein":gosub2498 

6878 a$="neues produktionsverfahre 

n an, mit":gasub2498 

6BUR a$="dem sie die produktionsko 

sten um $ 58" :g0sub2498 


4 
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509M af=-"aut $"+strhlpk(@) -58)+" s 
enken koennten. ":gusub?498 

6188 print:print 

611A gosub327B 

6128 restore 15578: gosub2688 

6136 ifx=-®then6158 

6148 gulB)=gwlB) -c:pklB)=pk(B) -58 
6158 ifrnd( 1) *pk{B} <6RBorrnd( 1)<.9 
Sormo<5then6278 

6168 gosub2360:c=500*intl rnd( B) *6+ 
mat?) 

6178 a$="umweltverschmutzung”:gosu 
b2498 

6188 print 

6198 a$="sie wurden wegen umweltve 
rschmutzung” :gosub2498 

6208 a$=-"angezeigt und fuer schuld 
ig befunden." :gosub2499 

62190 a$="sie wurden zu einer gelds 
trafe von" :gosub249# 

6229 a$="$"+str$(lc)+" verurteilt." 
:gosub2498 

6238 a$="der grund fuer die versch 
mutzung lag” :gosub249B 

6248 a$="im veralterten produktion 
sverfahren.”:gosub2498 

6258 print:print 

6268 gwl 8B)=gwlB)-c 

6278 F2=B:ifrnd(B)<.98orma<5then63 
88 

6288 gosuh?36B:c=1A88*intlrnd( 1)*5 
+ma/2+2) 

6298 a$="erpressung"” :gosub2498 
6348 print 

6318 a$="ein unbekannter fordert $ 
"+str$(c)+" und”:gosub?2498 

6328 a$="und droht bei nichterfuel 
lung seiner”:gosub2498 

6330 a$="forderungen mit einem bom 
benanschlag.":gosub2498 

6348 print:print 

6358 gosub3278 

6369 restore 15688: gosub2648 

6378 F2=x+t1 

8388 ift2=Bor( f2=1andrnd(B)<.6)or( 
f2=2andrnd( B}) <.95)then6528 

6398 gosub236A:c=int(lma/3-rnd( 1})}: 
ife<2thenc=2 

6408 a$="bombenanschlag" :gosub2449B 
6418 print 

6428 Fori=itoc 

6438 x=intlrnd( 1)#2.5) 

6448 ifma(lB,x)>Bthenma(d,x)=mall,x 
)-1:else6438 

6459 next 

6468 a$="heute nacht explodierte i 
n der" :gosub2498 

6478 a$="maschinenhalle ein spreng 


ng? 
<mn?> 
<ho> 
<hd> 
<op> 
<mb> 


<na> 
<ed> 


<ng> 
<bb> 


<db> 
<cf> 
<ok> 
<ca> 
<fb> 
<fc> 
<ih> 
<hj> 


<na> 


<jb> 
<kn> 
<ac> 


<dm> 
<np> 


+ji> 
<fg> 
<kc> 
<pl> 
<pn> 


<ja> 


<Ik> 
<nf> 
<np> 
<og> 
<pg? 


<bi> 
<bi> 


<ij> 
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satz, wobei" :gosub?49# 


6488 a3$=right${str$(le),1)+" maschi 


nen zerstoert wurden." :gosub249# 

6499 a$="personen kamen nicht zu s 

chaden ,":gosub2498 

658B iff2=2thena$="der erpresser h 

at sein wort nicht” :gosub2499:a$=" 

gehalten.":gosub2498 

6518 print:print 

6528 ifrnd(B) <.9Borgd(B) <18WBABthe 

n662% 

6538 gosub236B:c=188B*intl gdlB) /5R 

Ba*lrndl 1}+.2)) :ifc>5B8RRAAt hene=-5AB 

88 

6540 a$="diebstahl" :gosub2498 

6558 print 

6568 a$="heute nacht wurde bei "+n 
a$( 8) :gasub2490 

6570 a$="eingebrochen.":gosub2498 
6588 aß="alles geld im tresor ($"+ 
str$(c)+") wurde” :gosub2498 

6590 a$="gestohlen":gosub?2498 

86RB print:print 

8610 gdlB)=gdlB)-c 

6628 ifrendl 1)<.95orpkt{ B} >958then67 

28 

6638 gosub?36B:c=1BRBd*intlrndl 1) * 
1?90-pk(B)) /180+1) 

6648 a$="verkauf von know-how”:gos 
ub2498 

6658 print 

6668 a$="der verkauf von forschung 
sergebnissen" :gosub2494 

66780 a$="bracht ihnen $"+str$le)+" 
.":gosub2498 

6688 print:print 

6698 awl DB) =gwl A) sc 

6788 ifrnd[lB)FpklB) <Aßdorrndl 1)<.9 

7ormo<ißBthen6798 

6718 gosub2368 

6728 3a$="strompreiserhoehung" :gosu 

h2498 

6738 print 

6748 a$="durch die verteuerung des 
stromes":gosub2498 

6758 a$="erhoehen sich ihre praduk 

tionskosten” :gosub249# 

6768 a$="um $ 58." :gosub2498 

6770 pkL@)=pk(B) +58 

6789 goto687% 

6790 ifrndlB)*pkiB) <SBorrndl I)<.9 

7then6878 

BAM gosub236B 

68180 a$="strompreissenkung" :gosub? 

498 

6828 print 

6838 a$="durch die senkung koennen 
sie ihre"”:gosub2498 
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5848 aß-"produktionskosten um $ 58 
senken.” :gosub249# 


6854 
68658 
6878 
688% 
6898 


print:print 

pk(8)=pkL8) -5B 
ifjoy(2}and128then?Ba8 
gosub2368 
a$="boersenbericht":gosub?498 
6988 print 

8918 »$="preis fuer rohwaren 
$"+str${rp) :gosub2498 

6924 a$="preis fuer tertigwaren 
$"+str$( fp) :gosub?2498 

6934 itjoyl?2)and128then?7B88 

6948 print:print 

6958 gosub236B 

6968 a$="arbeitsmarkt”:gosub2498 
6978 print 

6988 a$="arbeitslose 
:gosub2498 

699% a$="beschaeftigte 
al) :gasub?2498 

7888 print:print:print 
7818 a$="ende der uebertragung”:go 


:"+str${al) 


:"+str${ am- 


sub249 

7828 : 

7838 rem eingabemenues 

7848 : 

7858 gosub3278 

7058 ma=ma[8,8)+mal8,1)+tmal,2) 
7878 pk=ma+tma{(ß, 1}+tmalB, 2)*2 

7888 sysu9,8,8,39,24,2:scnelr:prin 
tec$"m”; 

7098 a$=" st at us ":x=38:gosub 
2438 


7182 print:print 

7118 printmo;le$”. spielrunde:” 
712R print” "lert$(lul$, 13+len(str$ 
{ma)}) 

7138 x=int(ti/3688+.5) 

7148 a=int(x/68) :b=x-a#68 

7158 print" spielzeit 
:"a;le$":";:pudef"B":printusing”## 
";b:pudef” " 

7168 print” kapital 
:"gdlB) +gwl A) "$" 
7178 print” schulden 
:"sc[B) "$" 
7188 print” 
:"ma 

7198 print" 
:"cp(#) 
7288 print” 
:"ab(®) 
7218 print” 
:"rw{B) 
7228 print” 
:"Fw(B) 
7238 print” 


DE Er Br 


maschinen 


computer 


arbeiter 


TOWwaren 


un unnenune 


fertigwaren 


produktionakapazitoet 


<kd> 
er 
<cc> 
<cc> 
<da> 
<1f> 


<ob> 
<fj> 
<tf> 
<cj? 
<ol> 


<nh> 
<ed> 


<pg? 


<db> 
<db> 


<ib> 
<ej> 
<ij> 
<hb> 
<im> 
<hk> 
<oo> 
<kn> 
<pm> 
<co?> 


<11> 
<uok> 
<kb> 
<pp? 
<1lk> 
<hk> 
<bm> 
<he> 
<db> 
<be> 
<lc> 


<1k> 
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:”pk 

7248 print” lohnhoehe 
:"1hl 0) "$” 

7258 print” roduktionskosten .. 
:"pk(8)”$” 

7268 print" exclusivvertrieb 
:"vg(8) "ware”;:ifvgl@) <> ithenprint 
"n"zelseprint 


7270 gosub3278 

72588 rvestore 15448: gasub26#88 

7298 ifx=Bthen8918 

7308 sysu9,8,8,39,24,2:scnelr 

7318 0$=" s t ud ie ":x=38:gosub 
2438 

7328 print:print 

7338 print” 1.) beliebtheit des u 


nternehmens" 
7348 print" 
7358 print 
7360 print” 2.) 
konkurrenz” 
7378 print" 


kosten: $ 2Aua” 
vergleich mit der 


(produktionskoste 


n, ioehnen und” 
7388 print” rationalisierung) 
7399 print" kosten: $ 4880” 


7488 print 
7418 print” 3.) 
werbe- und” 
7428 print" 


n 


durchschnittliche 


forschungsausgabe 


7438 print” kosten: $ 1088" 
7448 print 

7458 print” 4.) ausstattung der k 
onkurrenz" 

7468 print” kosten: $ 5088" 


7478 FTori=Bto3 

7ABB sysu9,3+i*7,28,8+1*7,22,8:pri 
ntrv$”"nr.”"+chr$( 49+1) 

7498 next 

7500 sysu9,31,28,36,22,8:printrv$" 
ende" 
7518 

7528 

7538 

7548 


sysu6 

e=B 
sysu?,3te*7,28,8+e*7,22,7558 
e=-e+ti:ife>4then?b1ifd:else7538 
7558 sysu9, 3te*7,28,8+e#7,22,1 
7568 ife=4thenprint"ende”:sysu4,48 
:goto8918:elseprint"nr."+chr$( 49+e 
J 

7578 one+tigosub7618,7838,8598, 8698 


7588 sysu9, 3te#7,28,5+te#7,22,8:pri 
ntrv$"nr."+tchr$([49+e) 

7598 goto7518 

7688 

7618 sysu5,8,1 

7628 sysu9,7,4,32,28,2:scnelr 


ztg>r 
<hp> 


<pi> 


<jo> 
<cj? 
<lp> 
<pg> 
<kn> 


<eo> 
<bf> 


<im> 
<ci> 
<do> 


<eg> 
<he> 


<pm> 
<eo> 
<kb> 


<ol> 


<mn?> 
<fk> 
<pd> 


<pm> 
<dn> 
zea> 


<hn> 
<ea> 


<e3> 
<pc> 
<ja> 
<ef> 
<jn> 
<mg> 


<bg> 
<he> 


<go> 
<chb> 
<nf> 
<om> 
<ha> 


« 
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7638 


a$-" beliebtheit 


=24:gosub2438 
print” "left$(1i$,22) 


7640 
7658 
186) 
7668 
7678 
7688 
186) 
7698 
7708 
7718 


print” "rv$”gut 
print 
print" "left$(1i$,22 


print” "rv$”mittel 


print 


"ro$chr$t 


) 
"ro$chr$t( 


print” "left$(1i$,22) 


print” "rv$”"schlecht 


186)" (a) (b) (c)" 


7728 
7738 
7748 
7758 
7768 


7778 
8 

7788 
a 

7798 
7888 
7818 
7828 
7838 
7848 
7858 


7868 
7878 


print 
print" a..bei belegs 


"ro$chr$t( 


chaft"” 


print” b..bei konsumenten" 


print“ c..bei andere 


n firmen" 


x=19:y=13:z=int(ial 8) *48) :gos 
ub2848 


x=23:z=int[ ik( 8) *48) 
x=27:z=int(ig(B)*48) 


gosub32’78 

sysuS,1,8 

gw( B)=gw( 2) -2808 
return 

sysu5,®,1 
sysu9,3,5,36,28,2:sc 
a$=" produktion 
":x=32:gosub2438 
a$="” ”"+lert$( 11$,380) 
printa$:print"” "rv$"” 


hr$( 186) 


7888 


printa$:print” "rv$" 


hr$( 186) 


7898 


printa$:print" "rv$” 


hr$( 186) 


7988 


printa$:print" "rv$" 


hr$( 186) 


7918 


printa$:print" "rv$" 


hr$( 186) 


7928 
7938 
7948 
+1); 
7958 
7968 
7978 
7988 
7998 
8880 
8818 
8028 


8038 
8040 
8058 


printspe(6); 
fori=Btoaz 
printusing” ###" ;pkt 


next 
print:printspc(6); 
fori-®toaz 

print” "fb$(i); 
next 

y-16 

fora=-dtoaz 


:gosub284 


:gosub284 


nelr 

skosten 

1888"ro$c 
758"ro$c 
5a0a"ro$c 
258"ro$c 


@"ro$c 


i)/(cpli) 


x=11+a*4:z=int(pkla)*.B64/(cp 
(a)+1)) 


gosub2848 
next 
gosuh327B 


<fk> 
<oc>? 


<nk> 
<k1l> 
<1lm> 


<fo> 
<oj? 
<mk> 


<ij> 
<ct> 
<je> 
<jb> 
<nd> 


<ij> 
<lo> 


<ai> 
<gl> 
<ip> 
<nb> 
<od> 
<gb> 
<ia> 


<cj? 
<ei> 


<hi> 
<ic> 
<ai> 
<eb>r 


<im> 
<00> 
<jn> 


<jk> 
<nm> 
<cj? 
<pb> 
<jn> 
<cm> 
<bl> 
<ae> 


<bh> 
<id> 
<jb> 
<al> 
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8868 sysu5,1,8 

8878 sysu4,28 

8088 sysu9,8,5,39,28,2:scnelr 

au9a a$=" lohnhoehe 
":x=38:gosub2438 

Bin af=" "+left$( 1i$,36) 

8110 a=d:b=- 1AaAHa 

8128 fori=-Btoaz 

8130 iflh(i)>athena=1hli) 

8148 ifih(i)<bthenb=1hli) 

8158 next 

B1I60 a=-18B*intla/1ad+1) 

8178 c=1B8*intl(a-b) /ABB+1) 

8188 b=a-c*4 

8198 fori=Bto4 

8298 printa$:printusing” "+rv$+"ff 

#4” +ro$+chr$( 186) ;a-c*i 

8218 next 

8228 printspe(6); 

8238 fori-@toaz 

8248 printusing” #444”; 1hli); 

8258 next 

8268 print:printspc(6); 

8278 tori-Btoaz 

8288 print" "Tb$li); 

8298 next 

8308 y=16 

8318 forc=Btoaz 

8328 x=9+c#5 

8338 z=int((Ihlc)-b) /La-b) #64+.5) 

8349 gosub2848 

8358 next 

8368 gosub3274 

8378 sysu5,1,8 

8388 sysu4,28 

83908 sysu9,4,6,35,19,2:scnclr 

BAUR a$=" Fertigwaren pro arbeite 

r ":x=38:gosub2438 

8A1B a$=" "+left$l 1i$,28) 

8428 printa$:print”“ "rv$"” 3”ro$chr 

$( 186) 

8438 print:printa$:print" "rvw$" 2" 

ro$chr$t( 186) 

8448 print:printa$:print" "rv$" 1" 

ro$chr$t 186) 

8458 printspc(4); 

84608 tori=Btoaz 

8478 print” "fFb$(i); 

8488 next 

H498 y=15 

8528 fFora=Btoaz 

8518 x=1B+ta*4:ifmala,Bß)+mala,1)+ma 

(a,2)=8then8548 

8528 z=int((ma(a,8)+mala,1)*2+mala 

‚2)*3) /(ma(a,8)+ma(a,1)+ma(a,2))*2 

4-23.5) 

8538 gosub2848 

8548 next 


8559 
8568 
8578 
8588 
8590 
86BA 
8618 
:gosu 
8628 
8630 


#";df 
8658 
8669 
8678 
8658B 
8698 
8708 
8718 
8728 
8738 
438 
87am 
8758 
i)-sc 
8768 
ali,1 
8778 
8788 
8798 
eck" 
aand 
8818 
882n 
8838 
8348 
8858 
8068 
8878 
8880 
8898 
898 
8918 
8928 
38:g0 
3934 
8948 
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if joy( 2} =@then8558 


sysu5,1,8 

guw( 8) Sgwl A) -AB08 

return 

sysu5,8,1 
sysu9,8,9,38,16,2:scenclr 
a$=" mittlere ausgaben " 
b2438 

print 


ıx=21 


printusing” werbung : $ #444 
#" ;gw/(az+1) 
8648 printusing” forschung: $ #AAH 


gosub3278 
sysu5,1,8 

gw( B) =gul Bd) - 19008 
return 

sysuS,B,1 
sysu9,7,7,32,19,2 
fori=1toaz 

senclr 


a$="” "+na$li)+" ":x=?4:gosub2 


print 
print” finanzen :"gd(i) 


(i)"$” 


print” produktion :"ma(i,8)+m 


}*2+ma(i,2)*3 

print” computer :"epli) 
print” arbeiter :"ab(i) 
print” vertrieb :"vgli) 
print” rohwaren :"rw(i) 


print” fertigwaren:"fw(i) 
sysu4,48 

gosub 3278 

next 

sysu5,1,8 

gw( B) =gu( 8) -5008 

return 


rem produktion 


sysu9,8,0,39,24,2:scnelr 
aß" produktion 
sub2438 

print:print 
sysu9,2,4,37,18,2 


+aw( 


"stu 


"ıx= 


8958 o=B:ifsk(B) -Bthengw([ B) =gw( 8) - 


ab[ B) 
H9650 
53978 
8988 
8990 
y9BuR 
9818 
9828 
9838 


21h D) 


ifcp(®)thenprint" ";cp$:c=1 


ifms=-Bthen986® 
fori=2toßstep-1 
ifma(#,i}=dthen9B58 
forz=1toma(®,i) 
y-int(c/7}:x=c-y*7 
char, x*5+5, y*3+5,ma$(i) 
e=c+1 


<df> 
<bi> 


<1f> 


<nj> 
<ai> 
<lh> 


<nj? 
<de> 


<dp> 


<oa> 
<ed> 
<po> 
<gj? 
<ka> 
<NC> 
<mf> 
<kn> 
<em> 


<mi> 
<ct> 


<ed> 


<at> 
<pp> 
<nf> 


<cl> 
<aa> 
<nj> 
<1b> 
<on? 
<nh> 
<ge> 
<mp> 
<bp> 
<np? 
<jp> 
<ah> 
<ja> 


<kj> 
<jd> 
<nm> 


<il> 
<eb> 
<li> 
<kl> 
<cg> 
<tg> 
<ic> 
<db> 
<hi> 
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9848 next 

98658 next 

9868 ifab( PB) =-Bthen9118 

9978 Fori-d+cplB) toab(B)-I+cpl) 
9u88 yz-intli/7):x=i-y#7 

9098 char ,x#5+3,y*3+5,ab$ 

g91AB next 

9118 ifrw(B) <15theni=17:g0609158 
9128 Fori=17t018-int(lrw(B) /15) step 
-1 

9138 char,3,3,rp$ 

9148 next 

9159 char,3,i,left$(rp$,rw([B) -( 15* 
(17-1))) 

9168 itfw( 8) <15theni=17:g0t09288 
9178 Fori=17t018-int( fwl8) /15} step 
1 

9188 char, 22,i,fp$ 

9198 next 

9288 char,22,i,1left$(tp$,Fw( 8) -(15 
*(17-1))) 

9218 char,8,28,"" 

9228 ifabl ®)=®thena$="sie haben ke 
ine arbeiter.":g0t09438 

9238 itma=Athena$="sie haben keine 
maschinen." :g0oto9438 

9248 ifsklW)thena$="die arbeiter s 
treiken." :gol:a9438 

925% ifrw(@)=@thena$="sie haben ke 
ine rohware.":g0to9438 

9268 iffwlB) -6Bthenaf="das Fertigw 
arenlager ist voll.":g0:09438 

9270 a=0:y=B 

9288 fori=2to®step-1 

9298 ifmal#,i)}=8then9338 

9389 Forx=1toma(®,i) 

9318 asa+l:ifa<=abl B}theny=y+ti+1 
9328 next 

9338 next 

9348 ifrw(B) <ytheny=rw(B) 

9358 iF6B-FulB) <ytheny=69-Fw(} 
93680 printspc(4)"die maximale prod 
uktionsköpazitaet” 

9378 printspce( 11)"liegt bei"y"stue 

ck.” i 

9388 gosub3278 

9398 restore1565B:x=B:z2=1:a=y:gosu 

b2918 

9408 gwlB)=gwlB) -atpk(B) /CcplB) +1) 

9418 rw(B)=rw(B)-a:z(B)=a 

9420 goto9488 

9430 gw([ d)=gw(B) -ma*5B0:z[ 8) =B 

9448 printspc{2)”sie koennen leide 

r nicht produzieren." 

9458 print:printspe( (48-1enl a$)) /2 

Ja$ 

9468 

9478 gosub3274 


« 
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9488 


sysu2 


9498 tori=-1t0a2z 


9584 
9518 


z(i)= 


9528 
9538 
9548 
9558 
9568 
9578 
9588 
9598 
9688 
9618 
9628 
9638 


a=-mali,@}+ma(li,1)+mali,2) 
ifsk( ilthengw( 1) =gw( i)-a*5B8: 
B:g0t09648 
gwli)=gwli)-abli}*1hli) 
ifa=ßthenz[ 1) =d:goto9648 
a=-8:b=B - 
forx=2to®step-1 
ifma(i,x)-Bthen9688 
fory=itomali,x) 

ifa<abl i}thena=sa#+1:b=b+tx 

next 

next 

ifb>rw([i)thenb=rw(i) 
ifb>6ß-fwli)tihenb=6#-fw(i) 
z[i)=b:gw(i)-gwli)-b*epkti)/t 


epli)+1)):rwli)=rwli)-b 


9648 


next 


9658 : 


9668 
9678 
6880 
9698 
9788 
9718 
9728 
9738 
97a0 
i)fe 
9758 
9768 


rem ein- und verkauf 


a=10BBB*l Fw%/CFwrx+5ß)) 
b=258#[(rw+lgr/mo)) /rw%) 
fori=1toaz 
c=mali,8)+mali,1)*2+mali,2)*3 
d=fp+la-fp) /L3-e4li)/8) 
e=rp+[b-rp) /[3-e4( 1) /5) 
x-d-pk(i)/Lepli)+1)-Ihli)*abt 


irfx=<@thenx[ i) =8:goto9998 
y=c*int(e4(i)/3+1})-rwli) 


9778 ifskli)theny-int[ [rw[i)+ty) /2- 
rew(i)) :itfy<s=dthenx(i)=B:g0t09988 
9788 z=(e/rp) 

9798 y-intly+e*l 1-z2)+.5) 

9800 z=z+vg[li)/5 

9818 z=z+(c+ty+rwli))/lrwlilte)-1 
9829 ifskli)thenz=1+(z-1)/2 

9838 x=x-x/Lztlei(i)/5+1.5)) 

9848 ifx<=rpthenx[ i)=8:goto9Yy88 
9858 ity+rwli)>59theny=68-rw(i) 
Y985B ify<ftheny=® 

987A x=x-(x-rp) /3:ifx>3*rptihenx=3*F 
rp 

9888 ifx-rp>2QBthenx=x-Lx-rp-289)* 
.6 

9898 x[(i)=y:yli)=intlx) 

9988 next 

9918 sysu9,8,8,39,24,2:scnhelr 

9928 a$=" einkauf ":x=3ß:gos 
ub?438 

9938 print:print 

9948 print” der offizielle marktpr 


eis fuer eine” 


9958 


1le$". 


93968 


print” rohware betraegt $”rp; 


print” es werden" rw%”"rohwaren 


<lo> 
<be> 
<df> 


<mi> 
<bce> 
<nn?> 
<ii> 
<mm> 
<bj> 
<bk> 
<1lo> 
<1lj? 
<mn> 
<mj? 
<hd> 


<af> 
<bn> 
<oj? 
<a0> 
<bb> 
<cd> 
<mm> 
<bn> 
<hj> 
<nb> 
<hh> 


<km> 
<gb> 
<ff> 


<kj? 
<id> 
<1p> 
<cj? 
<pu> 
<jl> 
<jb> 
<ef> 
<de> 
<cp? 
<dj? 
<jo> 
<ap> 
<ch> 


<li> 


<oc> 
<pf> 


<od> 


<kh> 


126 


angehnten.” 

9978 print” sie besitzen momentan” 
rw(8)"rohwaren.” 

9988 print" sie koennen also "; 
9998 ifrw( 8} >59thenprint"”keine roh 
waren mehr" :print” unterbringen"”:x 
(8) =9:goto191808 

18088 print"maximal"; :if6ß-rw[B)>r 
wthenprintrw;:elseprint6@-rw(B); 
18610 print"rohware"; :itf6d-rw(B)>1 
thenprint"n”:elseprint 

19828 print” kaufen.“ 

18838 sysu3 

1BB48 restore 15680:3=B:y-60-rwlB): 
ifrw<ytheny=rw 

18859 x=B:z=1:gosub2Y18 

188658 x(B})=3a:ifa=tßthenIB1R6 

18878 restore 15714:a=1B*int(rp/10+ 
.95) 

18088 x=a:y=9994:z=1B:gosub2Y1B 
10098 yLB)-a 

IAIBR sysu5,8,1 

18118 sysu9,5,6,34,19,2?:scnelr 
18128 a$="versteigerung“:x=2B:gosu 
b2438 

121338 print:print” unternehmen wa 
ren preis” 

18148 print:x=& 

18158 fori-Btoaz 

18168 x=x+x(i):ifxli)=dtheny[i)=® 
18178 next 

I1B18B c=x 

18198 ifx<=rwiheny=rp:goLo19027%8 
18298 z=12808 

18218 Fori=#toaz 

198228 ifyli)<zandx{i)<>®thenz=yl(i) 
:b=I 

18238 next 

18248 itx-xlb)>=rwthenx=x-x[b) :xCb 
)=R:elsex{b) =x(b) -x+trw:xerw 
18258 ifx>rwtihen 19200 

10268 y=y(b) 
18270 fori=Btoaz 
18288 print" "na$li)tabl IY9)x(i)tab 
(26) "$"1e$; 
18298 ifyli) =dthenprint”" ---":goto 
18318 
19388 itfy(i)>=ythenprinty:elseprin 
tyli) 
1831A next 
18328 rwsc+trwi-rw 
183380 ifx{(8) =Ithena$="":elsea$="n" 
18348 char, 2,21,"ihnen wurde"”+a$+s 
tr$lxt8))+" ware"+a$+" zugeschlage 
N 
19358 char, 2,22,"sie bezahlen $"+s 
tr$gly®xto))+"." 
18368 fori=-@toaz 


<b> 


<he> 
Ssgc> 


<og> 
<ea> 


<ag> 
<ed> 
<po> 


<le> 
<pn?> 
<hd> 


<pp> 
<lc> 
<mk> 
<po> 
<fn> 


<te> 


<t1l> 
<me> 
<el> 
<bf> 
<ef> 
<cf> 
<no> 
<gi> 
<bt> 


<dn> 
<lm> 


<mm?> 
<nm> 
<ag> 
<go> 


<cc> 
<nn> 
<ab> 
<fo> 
<le> 
<1j> 
<im> 


<ce> 
<ob> 
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18378 gwli)=gwli)-yrxli)iewli)erw 
i)J+x(i) 

143580 next 

108398 gosub3278 

18488 sysu5,1,8 

18418 sysu4,48 

18428 : 

18438 
18448 
198458 
18468 
194780 


ren verkauf 


sysu2 

fori=Btoaz 

ifvgli)=Bthen 190528 

19488 iftw(i)<vgthen 14518 

18498 gwli)=gwli)tvgli)Fp:fwli)=t 
“Ci)-vgli):fwefw-vgli):ikli)=ik(i) 
+ 1-ik(i))*#.85 

18588 goto1852%8 

19518 gwli)sgwli)+twli)Fp:tfwetrw-F 
w(i):fw(li)=B:ikli)=ikli)*.9 

18528 next 

18538 iffw<sdthenfw=B:tw%rtw%t1 
19540 a=1BBBUFL Fu%k/Ltfwrx+5B)) 
19558 z=R:fori=®toaz:z=z+tfw[i):nex 
t 
18568 
18578 
3 
1588 
18598 
18680 
%) 
18618 
18629 
/2 
106539 
etdp/c 
19548 
e/3 
19659 
19668 
196570 
19658 
18690 


tori=1toaz 
c=ma(i,8)+tmali,1)*2+ma[li,2}* 


b=fp+la-fp) /L3-e4l1) 7/8) 
d=yt+pk(i)+ihli)/c 
iffp-d<2@thenxl i} =9:g0t01977 


e=-b/a*3 
ifgd( i)-sc[(i)+gw(i)<@thene=e 


ese+tfw[ i) /?PBß:e=( 3-e1li) /18)* 
ifsm-TFwli)seandskl I) =Athene= 


ifa-fw(i)<fw-4then 18698 
»i)=fwli)-Fwli)/e 
xti)=txlti)®Cb/a) #3) /3 
g0oto18718 

x(i)J=tw(li):yli)=tp 

197N8 901019778 

18710 xCi)sintlextäi)):irxti)>twei)t 
henxti)=fw(i) 

10728 itxli)<®thenx(i)=® 

187380 e=sgr(e) :ife<1.3thene=1.3 
108740 yli)=fp-Efp-d)/e 

18758 yli)=intl yli)+120*weti)/lgw+ 
1)*Caz+t1)+58#ikli)) :itfyli)>fptheny 
{i}=fp 

10768 iffp-y(i)>258thenyli)=int( y( 
i)+Lfp-yli)-258)*.6) 

19778 next 

18788 sysu9,8,0,39,24,2:scnelr 
18790 a$=" verk au f ":x=38:go 
sub?438 


<nl> 
<ol> 
<kb> 
<hg> 
<ke> 
<pd> 
<in> 
<bl> 
<ck> 
<ip> 
<ke> 
<ge> 


<dh> 
<ha> 


<fo> 
<ae> 
<fn> 
<pd> 


<fp> 
<an? 


<pi> 
<ke> 
<cp> 


<al> 
<hg> 


<af> 
<af> 


<cp? 
<ma> 
<hp> 
<ai> 
<in?> 
<md> 
<im> 


<bi> 
<hg> 
<al> 
<tb> 


<dj> 
<hg> 
<pk> 
<op? 


<nk> 


127 


18598 print:print 
18818 print" der offizielle preis 
fuer eine” 
18528 print” fertigware betraegt $ 
"fp;le$"”.” 
18838 print" auftraege ueber"fw"wa 
ren wurden an” 
18848 print" die billigstbietenden 
vergeben." 
18858 print” sie besitzen”fw(B)"fe 
rtigware”; 
108608 iffw(B)=Ithenprint"”.":elsepr 
int"n."” 
19878 
10888 
18898 
18998 
18918 
tw) 
19928 
12938 
19948 
18958 
10968 
18978 
19988 
19998 
11R8BR 


sysu3 

iftw[ 8) >Bthen 1998 
gosub3279:x(8)=8:goto19998 
restore 15J48 
z=1:x=®B:y=fw:ity>fw(lB)theny= 


a=y:gosub2Y918 

ifa=@thenx( B}=%:g0t019998 
x(B)=a 

restore 15778 

a=190*int(fp/1R) :x=B:y=sa:z=18 
gusub29IA 

y(®)=a 

sysu5,B,1 
sysu9,5,6,34,19,2:scnelr 


119818 
b2438 
118328 
ren 
11830 
11848 
119858 
11069 
11878 
11088 
11898 
11108 
11118 Fori=Bloaz 

11128 ifyli)-l180*weli)/law+tt) "(ar 
+1) +208*ikli))>zandxli)<>Bthenz=yt 
i}:b=i 

11130 next 

711348 ifx-x(b)>=fwihenx=x-xtb) :x(hb 
)=B:elsex(b)=xlb) -x+ttw:x=tw 

11158 ifx>tfwtiheni1140 

11168 y=yCb) 

11178 Fori=dtoaz 

1178Q0 print” "na$li)tabl 19) x[i)tab 
(26)"$"1e$; 


a$=-"versteigerung”“:x=28:gosu 


print:print” unternehmen wa 
preis” 

print 

x=B 

fori=-Btoaz 
x=x+x[i):ifxli)=&thenyli)=® 
next 

c=x 
ifx<=-fwtheny=fp:goto11178 
z=B 


11198 ifyli)=@thenprint" ---- “got 
011218 

112800 ifyli)<ythenprinty:elseprint 
yti) 


11214 next 


zec> 
<cf> 
<kd> 
<il> 
<ck> 
<ce> 


<mh> 
<fl> 
<im> 
<bl> 
<fd> 


<B0> 
<ok> 
<eno> 
<oj? 
<nf> 
<oj? 
<ga> 
<ol> 
<el> 
<bp> 
<en> 


<en? 


<OCc? 
<bl> 
<ep> 
<ah> 
<kk> 
<fe> 
<pa> 
<jf> 
<dj? 
<gi> 


<kh> 
<mn? 
<ih> 
<nk> 
<ei> 
<el> 
<nk> 


<jd> 


<jj? 
<en? 


« 
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11228 fwsc+tfw%-fw 

11238 ifx(®)=1thena$="":elsea$="n" 

11248 char,2,21,"sie koennen"”+str$ 

(x{8)) +” ware”+ta$+” verkaufen.” 

11258 char,2,22,"sie nehmen $"+str 

SERLBIEL-yLBIFLYyLEJ>y)-yFly>=yla})) 

))+" ein.” 

11268 fori=Btoaz g 

11279 Fwli)=fwli)-x[li) 

11288 ifyli)<ythengwli)=gwli)+tx(i) 

yzelsegw(i)=gw(i)+xli)®yli) 

11298 ifyli)>Bandx(i)=Bthenikli)=i 

kli)*.97 

11380 ityli)>Bandx(i)>®thenikli)=i 

kli)+l1-ikli))*.82 

11318 next 

11328 gosub327B 

11338 sysu5,1,8 

11340 sysu4,48 

11358 : 

11368 

11378 : 

11388 sysu9,9,8,39,24,2:senclr 

11398 a$=" sachwerte und personal 

":x2=38:gosub2438 

114988 print:print 

11418 print" "cp$” 
$ 15900068” 

11428 printspce(5)"(halbe produktio 

nskosten)” 

11438 print 

131448 print” "ma$(B)” 

ein $ 28080" 

11458 printspe(5)"(typ a, 

ro monat) 

11468 print 

11479 print” "ma$li)" 

ttel $ 58800” 

11488 printspe(5)"(typ b, 2 waren 

pro monat)” 

11498 print 

11588 print” "ma$l?2)" 

0S$ $ 119098” 

11518 printspel5)"(typ c, 3 waren 

pro monat)" 


rem investitionen 

computer 
maschine kl 
I ware p 


maschine mi 


maschine gr 


11528 print 
11530 print” "ab$"” arbeiter 
$ suBn" 
11548 printspce(5) "(preis fuer eins 
chulung)” 


11558 print:print:printspce(9) "kapi 
tal: $”gdlB)+gwlR) 

11560 sysu9,2,280,7,22,@:printrv$”e 
nde” 
11578 
11588 
11599 
11688 


a=-1:s5ysu6 
sy5su7,2,20,7,22,12188 
fori=Ato4 
sysu7,2,5+1*3,3,6+1*3, 11628 
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11612 
11628 
11638 
11648 
11658 
11668 
1167 
11658 


guta1163M 

a=j:i=d 

next 

ifa=--1then11578 

sysu5,8,1 

restore 15838+a*18@ 

sysu9, 12,5,28,21,2:scnelr 

reada$:x=15:gosub2438 

11698 sysu9, 14,9,26,11,8 

11788 ifa=4thenprintrv$"einstellun 

g”:elseprintrv$” einkauf " 

11718 sysu9, 14,13,26,15,8 

11720 ifa=Athenprintrv$"entlassung 
":elseprintrv$" verkauf " 

11738 sysu9, 14,17,26,19,8:printrv$ 

zurueck 

11748 sysu6 

11758 sysu?,14,9,26,11,11798 

11768 sysu7,14,13,26,15,11948 
11770 sysu7,14,17,26,19, 12868 
11788 g0oto11748 

11798 ifa=Bandep( 8) =1then11748 
11888 ifa=4andabt 8) >59then11748 
11818 ifa>Banda<A4andma>r59then 11748 
11828 sysu9,14,9,26,11,1 

11838 ifa=4thenprint"einstellung": 

elseprint” einkauf ” 

11848 ifa=ßtheny=154088:cp(8)=1 
11858 ifa=1lheny-?AR®B:mal 8,2) =mal 

9,8) +1:ma=mat1 

11868 ifa=?2theny=5B84R:malß, 1} =mal 

a,1)+i:ma=ma+i 

11878 ifa=3theny=108088%:mal 8,2) =ma 

(8,2)+1:ma=mat1 

11888 ifa=4theny=-5AA:ab[P) =abL BB) + 
1 
118908 gnlB)=gwtBß)-y 

sysu4,38 

sysu5,1,® 

char, 28,21,str$(gd(4)+gw(B)) 


11938 
11948 


goto11578 
ifa=Bandcpl( B) =Bthen 1748 
11958 ifa=4andab( 8) =@then 11748 
11968 ifa>Banda<d4thenifmal d,a-1)=® 
then11748 

11978 sysu9,14,13,26,15,1 

11988 ifa=4thenprint"entlassung ": 
elseprint” verkauf ” 

11998 ifa=ßtheny=75099:cpl®) =® 
12888 ifa=1theny- 18088:mal ®,8) =mal 
9,8)-1 

12818 ifar2theny=25808:ma( &, 1) =mal 
8,1) -1 

12828 ifa=3theny-5088%:mal ®,2) =mal 
8,2) -1 

12838 ifa=4theny=-2*1hl 8) :ab( 8) =ab 
(8) -1 
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129048 gw[B) =gw(B)+ty 

12850 g0t011988 

12068 sysu9,14,17,26,19,1:print” 
zurueck ” 

12078 sysud4,48 

12889 sysu5,1,8 

12899 goto11578 

12188 sysu9,2,29,7,22,1:print”ende 
12118 
12128 
12138 
12148 
12158 sysu9,8,8,39,24,2:senelr 
12168 a$=-"dauerzahlung 
en ":x=38:gosub?430 

12178 print:print 

12188 restore 1588# 

12198 x{(8)=wel®B) :x(1)=folBß) :x(2)=v 
g(8) *5B0:x( 3) =1hl 8) 

122088 fori-Bto3 

12218 sysu9,6,5+i*4,8,7+1*#4,8:prin 
trv$"-" 

12228 sysu9,31,5+i1*4,33,7+i#4,8:pr 
intrv$"+" 

12238 reada$ 

12248 sysu9, 18,5+i*4,29,9+i1F4,8:pr 
intusingrv$+ta$+": $AHAHHHH” ;»Ci) 
12258 next 

12268 sysu9, 17,21,22,23,8:printrv$ 
"ende" 
12278 
12288 
12298 
12388 
[.) 
12318 
12328 
12334 
12348 
12358 
12360 
12378 
12388 
12398 
12488 
12418 
12428 
12438 
de” - 
12448 we( 8) =x(8) :FolA)=x[1):vg[lB)= 
x(2) /588:1hl@)=x[3) 

12458 fori=Ato2 

12468 awlB)=gw(lB)-x(i) 

12478 next 

12488 b=8 

12498 tori=-@toaz 

12588 itskli)ihenb=b+ab(i) 


sysu4,48 


rem dauerzahlungen 


sysu6:i=® 
sysu?,17,21,22,23,12438 
sysu7,6,5+i1*4,8,7+i1*4, 12338 
sysu7,31,5+1*4,33,7+1*4, 1238 


i=i+l:ifi<=azthen12298 
g0t012278 
x(i)=x[i)-588-(i=3) #458 
ifx(ti)<dthenx(i)=® 

char, 23,6+i*4,"" 
printusingrvs+ "AHRHHR” ;xLi) 
g0t012278 
xti)=x(i)+588+l i=3} 458 
ifx(i)>580B@Wthenx( i) 588088 
char, 23,6+1#4,"" 
printusingrvug+" AHA” ;xCi) 
g0t012278 

sysu9, 17,21,22,23,1:print"en 


<cm> 
<hd> 
<li> 
zxef> 
<kd> 
<hd> 


<ph> 
<fd> 
<ej? 
<oi> 
<hb> 
<a0> 


<1g> 
<dn> 
<jo> 


<bb> 
<gd> 


<gj? 


<il> 
<go> 


<etf> 
<je> 


<og> 
<ko> 
<fl> 
<od> 


<ph> 
<ka> 
<cdb> 
<ap> 
<ae> 
<la> 
<nj?> 
<ıan? 
<ee> 
<ik> 
<zom?> 
<ak> 
<fi> 


<ek> 


<hl> 
<ci> 
<oa> 
<ep> 
<cb> 
<km> 
saj? 
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17518 Fuli)=twli)l+zli):itffw(i)>6ßt 
henfw(i)=68:igli)=igli)*.97 

12528 next 

12530 FwX=FwX-intl sorl gw/10UW) ) 
12540 sysu2 | 

12558 fori-=1toaz 

12568 e=ma(1i1,8)+ma(li,1)*2+ma(i,2)* 
3 

12578 ifsk(i)=dthen 12678 

12588 d=e*( Fp-rp-pkli)/lepli)+1))+ 
(sk(i) +588) ®abl(i) 

12598 ifd<188then 12678 

12608 x=-gdl i)+gwli)-seli)-dg 

12619 ifx>dande/dp>1.1then 12678 
12628 ifkp<om*5ßBandb>=azthen 12678 
12630 y=elli)/2+sgn(x)*3+3%e/dp-sq 
r(d/e/56)+d1/1hli)*5-cpl i) *3+b5/am* 
5 
12648 
12658 
12678 
12668 
12678 
12688 
12698 
12788 
127180 
74 
12728 
a8 
12738 
12748 
1+58 
12758 
”*,B 
12768 iftwli)>e*3ortfw( i)>5@thenwel 
i)=weli)*1.2+1886 

12778 weli)=int[lweli)):gwli)=gw(i) 
-weli) 

12788 ifpkli)<308+28*e2(i)thenfoli 
)=B:g0t012820 

12798 x=int([ ( 18-e2(1i)) *280R9U8/Lpkl 
i)-288)) 

12888 ifti/da>.Y9-e2(i)/5PBthenfoli) 
=8:g0t012828 

12818 Foli)=x 

12828 ifrnd(B)*x*(pkli)-288) <5%088 
Borpk<3ßßorrnd( 1)<.8then 12848 
12838 pk(i)=pkli)-58 

12848 ifyli)>Bandtw(i)>vgli)andfp- 
yli)>18@@thenvgli)=vgli)+ 

12859 iffw(i)<vgli)orly(li)>Bandyli 
)+588<fp)thenvgli)=vg(i)-1:itfvgl(i) 
<Athenvgl(i)=®8 

12869 gwli)=gwli)-vgli)*500 

12878 ifcpli)then12898 

12888 ifgdl i)+gw(li)>125BA9-e3li)an 
dti/da<.8thencpl i)=1:gw(li)=gw(i)-1 


ifti/da<itheny=y+ti/da*3 
ify>9ory>t 16@8-1Ihli))/30then 


ihli)=1hli) +58 
ifsk(i})thenwe(i)=8:g0t012778 
x=gw/(az+t1)#.8 
ifx<1Bßfiihenx=x+5B88 
x=2540/fp*x 
iffp>350Borfw<fw%-2thenx=x*. 


»=x*#e/dp:itffw-Fw%>5thenx=x+t1 


wel i)=weli)+(x-weli}))*.3 
iffw-Fw%>Sthenwe( i)=we(i)*1 


ifwe[i)>x*1.5thenwe(i)=we(i) 


<1j> 
<lc> 
bl? 
<lg> 
<be> 


<bk> 
<gb> 
<al> 
<ie> 
<eg> 


<ng> 
<nj?> 


<ho> 
<kn? 
<lc> 
<pe> 
<ed> 
<nl> 
<on?> 
<mn> 


<]11> 


<mn?> 
<im> 


<hec> 
<af> 
<cm> 
<bj> 
<ho> 
<na> 


<ph> 
<mg> 
<ii> 
<do> 


<io> 
<eäa> 


<jp> 
<jj? 
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12898 itmali,8)+tmali,1)+tmali,2)>19 
then 12989 

12988 x=int(l dp/db-e2L 1) /7):x(8}=28 
AaBa:x(1)>50AAR:x[2) = 1nAARR:ifx>2th 
enx=2 

12918 ifgdli)+gwli)<lt 10FKlx)) /U10+ 
e3)+1hli)*(e4li) /3+1)then12988 
12928 mali,x)=mali,x)+t1:ab(i)=abli 
J+1:gwli)=gwli}-x[x) -5880 

12930 x=gwli) :ifx<5B@Bthen 12988 
12948 gwli)=gwli)-[x-500U) *.2:ifx< 
18898: hen 12988 

12958 gwLi}=gwti)-Lx- 10800) %.1:irfx 
<?2BaWBWRtLhen12988 

12968 gwli)=gwli)-(x-2808aR)*.1:ifx 
<5aBRAAthen 12988 

12970 gwli)=gwli)-Lx-5B0BR)*.2 
12989 gdli)=gdli)+gwli) 

12998 iflgdli)>999andscl i)>B}orgdt 
i)<@thengd( i)=gdli)-1808*int( gdli) 
/1980R) 

13008 iflgdli)>99Y9andsc(i)>B)orgd( 
i)<@öthensc[(i)=scli}-1888*int( scli) 
/108%8) 

13018 x=mali,8)*1UBB9+mali,1)*2508 
B+mal i,2) 50899 +cp{ 8) #75BU0+ 10000 
13028 itgw(li)<1@8ßthenigli)=igli)* 
.99:elseigli)-igli)+[1-igli))*.01 
13838 ifsc(i)>xthensc(i)=x 

13048 ifkp<@andlh(i)>1884thenlhli) 


=1h( 1) -58B 

1385 next 

13060 : : 
130878 rem monatsbilanz 
13088 : 


13898 sysu9,8,8,39,24,2:scnelr 
13188 a$="b i lan z ":x=38:gosu 
b2438 

13118 print:print 

13128 c=ma( 8,8) *10AQU+mal 8,1) *2588 
O+ma( 8,2) *5BBAW%+cpl WB) #75009+ 10008 
13130 a-gw[®) :ifa<cbsaWAthen13188 
13148 gu B) gut B) -Ca-50B0)*.2:ifa< 
18998then13188 

13158 gwl Bd} -gwlB) -(a-1800B)*.1:ita 
<28B8A8t: hen 13188 

13168 gwLB) "gut B) -(a-2808B)*.1:ifa 
<5AHBAAthen13188 

13178 gw{B) =gwlB) -(a-50080) *.2 
13188 guwlB)=int(gw(B)) :d=gdlB) +gul 
8) :e=sc(®) 

13198 sysu3 

13288 ift d>999ande>999) ord<dthend= 
d-10A@*Fint([ d/1008) :e=e-( gd[ A) +gw( 
}-d) 

13218 ife<dthend=d-e:e=B 

13228 ife>cthen15188 


sap? 


<ch> 


<an> 
<pd> 


<zao> 
<mh> 


<jp? 
<rg> 
<kg> 


<db> 
<j1> 


<dn> 


<ne> 
<tfb> 


<po> 
<pi> 


<mf> 
<nk> 
<ki> 
<ic> 
<na> 
<mi> 


<kp> 
<1j> 


<hd> 
<hj> 


<mb> 
<hp> 


<ji> 
<mm> 


<be> 
<cb> 


<dg> 
<eh> 
<pj? 


132390 print” vor einem monat; ” 
13248 print 

13258 printusing” kapital SHAH 
HERR” ;gile) 

13268 printusing” schulden: $AHH 
EHER" ;scl®) 

13278 print 

13288 print" in diesem monat:" 
13298 print 

133040 printusing” kapital GHHH 
AHHR” ;d 

133190 printusing“ schulden: $AHH 
AHHR” ze 


13328 print 

13330 print” sie sind kreditwuerdi 

g bis $"o;1le$"." 

13348 print 

13358 print” sie zahlen $"a-gw(8)" 
steuern.” 

13368 gdlB)=d:sc{#}=e 

13378 ifti+t188@<dathen 13618 

13388 gosub3278 

13398 y=d-e+(c-18808) 

13489 printup$up$up$ec$"t"cl$; 
13438 print” ihre spielzeit ist nu 

n abgelaufen.” 

13428 print” nach verkauf aller sa 

chwerte bleiben" 

13438 print” ihnen nach”mo"”monaten 
$"y;le$”, die" 

13440 print” sie aus $ 25809 erwir 
tschaftet haben." 

13458 print 

13460 y=( y-25808) #50080/da*8d/[mo+1 

e) 

13478 ify<Bthena$="miserabler":got 

013540 

13488 ify<5ßßthena$="schlechter":g 

0t013548 

13499 ity<180B@thena$="maessiger":g 

0t013548 

135089 ify<28@ßthenaß="passabler":g 

0t013548 


13518 ify<4888thena$="guter”:gotol 
3548 

13528 ify<18888thena$="sehr guter" 
:goto13548 

13538 a$="exzellenter" 

13548 print” sie waren ein "a$” ma 
nager." 

13558 sysu4, 188 

13568 gosub3278 

13578 restore 15479: gosub?64# 

13588 ifx=ithenrun 

13598 printec$”"]”ec$"”n" 

13608 end 

13618 gosub3278 


<0ar 
<ha> 


<oar 


<na> 
<kl1> 
<ja> 
<nd?> 


<tk> 


<do> 
<bb> 


<sej? 
<dj> 


<ne> 
<op> 
<do> 
<na> 
<mo> 
<pf> 


<fn> 
<di> 
<kb> 


<oe> 
<bg> 


<dk> 
<go> 
<fp> 
<dl> 


<gk> 
<mi> 


<mi> 


<xnd> 
<kg> 


<cp> 
<dj> 
<fl> 
<nb> 
<fa> 
<do> 
<ck> 
<ıf> 
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13628 sysu5,#,2 <ko> "-cn$:c=1 <ib> 
13638 sysu9, 14,6,25,28,2:scnelr <ım> 14138 ifma=-®8then 14228 <bk> 
13648 sysu9, 15,7,19,18,8:printrußg - 14148 fori=2toßstep-i <gd> 
1$ “an 14158 ifmalB,i}j-#then14718 <mi> 
13658 sysu9,29,7,24,18,8:printrv$g 12158 Farzeitomal 0,1) ER Be 
2$ i i j s “BR* 14178 y=-intlc/?7) :x=c-y*7 <an> 
13668 sysu9, 15,11,24,13,8:printrv$ 14180 char, x#5+6,y*3+9,ma$l i) <ha> 
weiker “au 14198 c=c+1 <ap> 
13678 sysu9, 15,14,24,16,8:printrv$ 14208 next <ob> 
Be . . RI 14218 next <pf> 
13688 sysu9, 15,17,24,19,8:printrv$ 14220 ifab( 8) =Bthen14278 end» 
save Sad? 14238 Fori=B+cp(B)toabl B)-itcp(®) <gn> 
19690 syauß SUB” 14249 y-int(i/7) :x=i-y*7 <gb> 
13788 sysu?,15,7,19,18, 13768 <ce> 14258 char, x*5+4, y*3+9,ab$ <kf> 
13710 sysu7,28,7,?4,18, 14060 <ai> 14268 next <> 
12720 »ysu7,15, 11,29, 13, 14408 <pJ> 14278 ifrw(B) <15theni-21:got014318 <gi> 
FAI3D apa 19, 14ER, 16, TAT ei 14288 Fori-?1to22-int(trw(®) /15) ste 
13748 sysu?,15,17,24,19,14498 <cp> p-1 <jtr> 
13758 g0:013698 <cl> 14298 char,4,i,rp$ $ <bg> 
13760 sysu5,ß, 1 <pl> 14308 next <ki> 
13778 sysu9,15,7,19,10,1:printg1$ <ko> 14310 char,4,i,left$(rp$,rwl8)-(15 
13788 sysu4,48 <fe> = 21-1))) <ph> 
en BETT EEROREHT | 1 VE 14320 iffw(B) <15theni=21:goto14368 <kc> 
13808 a$="einnahmen - ausgaben (in 14330 fori=21t022-int( fw(B) /15) ste 
$)":x=34:gosub?438 <il> p-1 <ebs 
13810 a$=" "+lert$l1i$,32) <gg? 14348 char, 22,i,fp$ <j1> 
13828 3=-999999:b=999999 <dr> 14358 next <ao> 
13838 fori=Btoaz <jd> 14368 char, 22,i,1eft$(fp$, fw(l 8) -U1 
13848 ifgwli)>athena=gw(i) <ka> 5%(21-1))) <in> 
13858 ifgw(i)<bthenb=gw(i) <na> 14378 gosub327® <be> 
13868 next <dg> 14388 sysu5,2,® <ch> 
13878 a-108A*intl(a/1d88+1) <ig> 14398 g0t013698 <mm> 
13888 c=108B*intlla-b) /4B0B+1) <pe> 14488 sysu9, 15,11,24,13,1:print" w 
13898 b=a-c#4A <me> eiter "” <kh> 
13988 fori=-8to4 <co> 14418 sysu4,48 <la> 
13918 printa$:printusing” "+rv$+"+ 14428 g0t03328 <ca> 
HHHHEN" +ro$+chr$l 186) ;a-c*i <oe> 14438 sysu9, 15,14,24,16,1:print“ 
13928 next <kp> ende ” <jo> 
13938 printspce(8); <eh> 14440 sysu4,48 <aol? 
13948 fori=-Btoaz <og? 14458 restore 15498: gosub2688 <kd> 
13958 print” "Fb$(i}; <ag> 14460 ifx=Bthensysu9, 15,14,24,16,®8 
13968 next “PP? :printrv$” ende ":g0t013698 <mm> 
13978 y=14 <le> 14478 printec$"n"ec$"1" <gp> 
13988 forc=#toaz <aj> 14488 end <bb> 
13998 x=12+0*4 <ga> 14498 sysu5,8,1 <hc> 
14008 z=int((gwlc)-b) /la-b)*64+.5) <pf> 14588 sysu9,15,17,24,19,1:print"” 
14818 gosub2848 <oj?> save " <ol> 
14828 next <hh> 14518 sysu4,48 <jn> 
14838 gosub3278 <fi> 14578 sysu9,9,8,38,16,2:scnelr <aa> 
14848 sysu5,1,8 - <fl> 14538 a$="speichermedium ?":x=2B:g 
14858 g01013698 <f1> osub?438 <ee> 
14068 sysu5,ß, 1 <do> 14548 sysu9, 12,12,17,14,8:printrv$ 
14878 sysu9,28,7,24,180,1:printg2$ <ib> "tape" <hk> 
14088 sysu4,48 “13? 14558 sysu9,22,12,27,14,@:printrv$ 
140898 sysu9,3,4,37,22,2:scenelr <jd> "disk" <di> 
141089 a$="inventur":x=33:gosub2438 <ia> 14568 sysu6 <b1> 
14110 print BT u 14578 sysu?,12,12,17,14, 14680 <je> 
14128 c=B:ifcp(®)thenprint:print 14588 sysu7,22,12,27,14, 14638 <ff> 


131 


« 


MANAGER 


14598 
14608 


pe” 
14618 
14628 
14638 
sk" 
14648 
14658 
14668 
14670 
438 
14688 
14698 
=a$ 
14708 
14718 
14728 
:gosub 
14738 
14748 


goto145AB 
sysu9, 12,12,17,14,1:print"ta 


sysud4,48 
c=1:g0t01466# 
sysu9,22,12,27,14,1:print"di 


sysu4,48 

c=8 

sysu9,9,8,38,16,2:scnelr 
3a$="dateiname ?7":x=28:gosub2 


print:print 
print" >"; :x=16:g0sub2270:c$ 


sysu4,28 
sysu9,9,8,38,16,2:senclr 


a$=-" legen sie die ":x=20 
2438 
print" "ru$" "; 


ifc=1thenprint"”kassette";:el 


seprint"diskette"; 


14758 
14768 
"ok" 
14778 
14788 
14798 
14808 
k * 

14818 
14828 
14838 
wt$; 

14848 
14858 
14868 
438 

14878 
14888 
14898 


print” ein 
sysu9, 17,13,22,15,8:printrv$ 


sysu6 
sysu?,17,13,22,15, 14888 
goto14778 

sysu9, 17,13,22,15,1:print” o 


b$=ti$ 
ife=8thenc$=c$+",s,w” 
printbk$; :openl,c,c,c$:print 


gosub32B8:ifxthen1589% 
sysu9,9,8,38,16,2:scenclr 
a$=" saving... ":x=208:gosub2 


print:print:x=® 
fori=@to5 
print#1,na$li)”,"Fb$Li)”,"rw 


(i)”,"Fwli)","mali,8)","mali,1)"," 
ma(i,2) 


14988 
14918 


gosub32A8:ifxthen 14958 
print#1,cpli)”,"abli)"”,"”gdli 


)","scli)","ınli)","pkli)","iali)” 


‚"ikli 
14920 
14930 


J","igli) 
gosub32AB:ifxthen 14958 
print#1,vg(i)”,"sk(i)”,"wel(i 


)","fo","elli)","e2li)","e3li)"”,"e 


ati) 

14948 
14958 
14968 
14978 
14988 


gosub3288 

ifxtheni=5 

next 

ifxthen1589® 
print#1,rp","fp","kp","rw”," 


FW”, "rw", "fw%”,"na$”,”da”,”da$ 


14998 


gosub3288:ifxthen 15898 


1508# 


f3”, "m 


15918 
15820 
15838 
15848 


print#1,gr", "gt", "rt, "tT2®,* 
o”","ti$ 

gosub3288: ifxthen 15898 
closei 

gosub329W: ifxthen 15998 
scnelr:a$=" fertig ":x=28:go 


sub2438 


15858 
15068 
15878 
15888 
15898 
15188 
15118 


ti$=b$ 

sysu4, 188 

sysuS,1,8 

g0t:013698 

close 
sysu9,9,8,38,16,2:scnelr 
print:print:print:print:prin 


tspc( 3) "schreibfehler" 


15128 
b2438 
15138 
15148 
15158 
15168 
15178 
15188 
15198 
15288 
15218 
"na$ 

15228 
15238 


a$="schreibfehler” :x=24:gosu 


close 

ti$=b$ 

sysud4, 388 

sysu5,1,8 

goto13698 

print:print 

print” an” 

print 

print” herrn/frau/fraeulein 


print:print 
print” ich bedauere ihnen mi 


tteilen zu” 


15248 print" mussen, dass ihre fir 

ma "na$(ß) 

152580 print" in konkurs gegangen i 
st.” 

15268 print" die bank verlangt die 
sofortige” 

15278 print" zurueckzahlung des kr 


edites in der” 


15288 
15298 


print” hoehe von $"e;le$"." 
print” ihr besitz wird verst 


eigert." 


15388 
15318 
15328 
nd 

15338 
15348 
15358 
15368 
15378 
15388 


15398 
15498 


15418 
15428 


gosub3278 
restore 15478: gosub2698 
ifx-Bthenprintec$"n"ec$"1":e 


run 
rem entscheidungsfragen 
data3 

data” wollen sie die polizei 
data” auffordern haerter 
data" durchzugreifen ? 
data2 

data” wollen sie den auftrag 


15438 


15448 
15458 


15468 


15478 
15488 


15498 
15508 


15518 
15528 


15538 


15548 
15558 


15568 


15578 
15588 


15598 


15648 
15618 
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data” annehmen ? 

data? 

data” wollen sie eine studie 
data” in auftrag geben ? 
data 

data" noch ein spiel ? 
datal 

data” sind sie sicher ? 
data? 

data” wollen sie die 
data" maschine käufen ? 
data? 

data” wollen sie den mann 
data” einstellen ? 
data? 

data” wollen sie das angebot 


15628 : 


15638 
15648 
15658 
15668 
15678 


15688 
15698 


15788 


15718 
15728 


15738 


15748 
15758 


15768 


15778 
15788 


data" annehmen ? 
data! 

data” wollen sie zahlen ? 
rem zahleneingabe 

data2 

data” wieviele waren wollen 
dato” sie produzieren ? 
data? 

data” wieviele waren wollen 
data” sie ersteigern ? 
datal2 

data” wieviel wollen sie 
data” maximal bieten 7? 
data2 

data” wieviele waren wollen 
data” sie anbieten ? 
data2 

data” wieviel wollen sie 


<gc>? 


<oh> 
<gl> 


<ed> 


<pi> 
<oc> 


<cp? 


<db>. 


<bk> 
<ic> 


<hd> 


<ph> 
<pk> 


<on?> 


<fo> 
<hb> 


<1b> 


<kn> 
<oi> 


<1l> 
<lm> 
<ji> 
<oe> 
<le> 


<bl> 


<mk> 
<cm> 


<fr> 


<mn> 
<hp> 


<fh> 


<ml> 
<bp> 


<mj?> 


<dn> 
<jg> 


<ol> 
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15798 data" mindestens verlangen 7 


15888 
15810 
15820 
15838 
15848 
15850 
15860 
15878 
15888 
15890 
15908 
15918 
15928 
15938 
15948 
15958 
B,.5, 
15968 
2,1,5, 
6,3,6, 


15978 datasonny,son,6,12,,2,,,2,13 


BBB, ‚1 


15988 datamazda,maz,3,,,1,,,1,2708 


‚20088 
15999 
7,3100 
‚8,9,5 
16008 
2,1259 
En 
16010 
16920 
16838 
16Ba0 
16058 
16860 
16878 
16080 
16098 


rem sachwerte und personal 
data”computer” 

data”maschine a 
data"maschine b” 
data"maschine c"” 
data"arbeiter” 
data”werbung 

data”forschung” 
data"vertrieb * 
data”loehne ” 


rem datas 


data,,,,,,,,,25008, ‚, 100n, 186 
A 


datacommodore,com,43,19,1,2, 
132408,,1200,800,.4,.7,.8,2, 
a 


ven,900,.7,.2,.8,,3,2,8,8 


‚1008,100%,.5,.9,.2,,9,,6,2 
datamiele,mil,28,12,4,1,2,1, 
‚suBaBd,1100,900,.2,.7,.4,2,8 


dataphillips,pip, 12,11,,2,,, 
29,,1380,1808,.9,.5,,1,1,9,1 


memory 
m-code 
program 
variables 
arrays 
strings 
tree {b) 


<bb> 
<cf> 
<no> 
<em> 
<pn> 
<fe> 
<li> 
<jf> 
<eo> 
<bp> 
<fa> 
<nı> 
<nb> 
<bg> 
<td> 
<dp> 


<fm> 


« 
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MANAGER-STARTPROGRAMM============p4 
(p) COMMODORE WELT TEAM 


{c) by Bernhard ODemer 


Plus4 (C16/116 + 64 KB) 


Das Programm ist’ mit dem Maschinen- 
sprachmonitor TEDMON unter Zuhilfe- 
nahme des FPruefsummenprogrammes 
CHECKMON einzugeben und auf Disket- 
te mit s"manager”,8, 1991,1758 abzu- 
speichern. Auf Kassette bitte mit 
s”manager",1,1881,1758 abspeichern. 
Geladen und gestartet wird wie bei 
einem normalen Basic-Progamm. 


»inaaa Ba 14 18 Ba BB e7 30 2c :<c?7> 
>1B88 31 3a e7 34 2c 31 33 e7 :<ed> 
>1B18 31 2c 31 88 2a 18 1A BO :<27> 
>1B18 58 24 b2 c7 28 31 33 29 :<eb> 
>1029 3a 52 24 b2 c7 286 33 34 :<ad> 
>1928 29 88 6d i® je BB Ai 24 :<c3> 
>1R30 b2 22 53 dY9 34 32 35 36 : 
>1938 22 aa 58 24 aa 22 Ac cf :<4e> 
>19848 22 aa 52 24 aa 22 Ad 41: 
>19848 Ae 41 47 45 52 2e 32 22 :<Iic> 
>1050 aa 52 24 aa 22 2c 22 aa :<eß> 
>1858 cA4 28 c2 28 31 37 34 29 :<bB> 
>1i060 29 aa 58 24 aa 22 52 dS5S :<79> 
>1068 22 aa 58 24 ®BB 58 18 256 :<df> 
>1079 98 F9 31 2c Ai 24 3a 97 :<2b> 
»>1078 32 38 33 35 2c 38 3a 9e :<87> 
>19888 35 36 33 36 34 3a a2 80 :<44> 
>1888 988 BB 97 31 33 32 31 2c : 
>1898 31 33 Qu 99 19 59 088 a2 :<67> 
>1898 88 BR OO DB HR QB BB 989 :<4i> 
>1Ba8 a2 BR bd BB dB Y9d BR FB :<B2> 
>1B8a8 bd 89 di 9d BR F9 bad 78 :<5B> 
>12b8 15 9d BR Fa bd 78 16 9d :<Be> 
>18b8 @R fb ca d@ e5 78 a9 18 :<dB> 
>1B8c8 8d4 14 83 a9 12 84 15 83 :<11> 
>18c8 58 a9 @aR 85 d5 a9 FB 8d :<be> 
>1QadB 13 FF a9 cQ Bd 12 FF a9 :<Ba> 
>1B8d8 e8 85 38 a9 15 85 2c a9 :<3a> 
>1BeB 71 85 2b a9 BB Bd 78 15 :<7c> 
>18e8 28 ?b Ba Ac Ba 82 28 el :<Bdc> 
>ierna 11 20 91 94 28 d2 9d a5 :<Ic> 
>18f8 14 85 d8 a5 15 85 d9 86 :<3e> 
>1180 d6 a9 BB 85 d? a5 d6 Aa :<B9> 
>1108 Aa 4a aa 208 28 12 a5 d9 :<c5> 
>1118 Aa a5. dB 6a Aa Aa aß bi :<d9> 
>1118 d® Bd Se B6 a9 7c 91 d® :<Ff6> 
>1128 cB b1 dQO 8d 68 B6 a9 7e :<QB6> 
>1128 91 d® 98 18 69 27 aB bi :<7?8> 
>113@ dß Bd 5f B6 a9 7d 91 dB :<66> 
>1138 cB bi d® 8d 61 86 a9 7F :<49> 
>1148 91 d@ 78 Bd 3 ff ad 5e :<78> 


>1148 
>1158 
>1158 


>1168 
>1168 


>1178 
>1178 
>1188 
>1188 
>1198 
>1198 
>11a8 
>1138 
>11b® 
>11b8 
>11c8 
>i1cB 
>11d8 
>11d8 
>11e2 
>11eB 
>I11fB 
>11f8 
>1288 
>12908 
>1218 
>1218 
>1228 
>12285 
>1238 
>1238 
>1248 
>1248 
>1258 
>1258 
>1268 
>1268 
>1278 
>1278 
>1288 
>1288 
>1298 
>1298 
>12a8 
>1238 
>12b® 
>12b8 
>12c8 
>12c8 
>12d® 
>12d8 
>12e® 
>i2e8 


>12f2. 


»>1i12f8 
>1398 
>1388 
>1318 
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MANAGER-STAPRTFROGRAMM 


ga 
22 


»14e8 
>14f0 


>1AafB 


>15808 
>1588 


>1518 
>1518 
>1528 
>1528 
>1530 
>1538 
>1548 
>1548 
>15598 
>»1558 
>1568 
>1568 
>1578 
>1578 
>1588 
>1588 
>1598 
>1598 
>1538 
>15a8 
>15b® 
>15b8 
>15c8 
>15c8 
>15d8 
>15d8 
>15e8 
>15e8 
>15f8 
>i5r8 
>1688 
>1688 
>1618 
>1618 
>1628 
>1628 
>1638 
>1638 
>1648 
>1648 
>165®8 
>1658 
>1668 
>1668 
>1678 
>1678 
>1688 
>1688 
>1698 
>1698 
>1638 
>16a8 
>16b® 


06 
dd 


86 
12 


ad 
e4 
de 


f9 


« 


MANAGER-STARTPROGRAMM 


>1720 Ba ua ae aa Fr Fr ff FF :<66> 
>1728 an BB om Fr Fr ff ff Ff :<6e> 
>1738 aa aa Fr Fr Fr Fr ff Ft :<7a> 
>1738 aa Fr fr Fr fr Fr ff ff :<88> 
>1748 ff fe fc f8 fß ed cd 88 :<6d> 


Hardcopy 


Mit einer kleinen Maschinenroutine ist das 
Ausdrucken einer Hardcopy vom Grafikbildschirm 
keine Schwierigkeit mehr. Nachdem Sie das Hard- 

copy-Programm geladen und gestartet haben, können 
Sie entweder eine Grafik entwerfen oder ein 
Programm mit HIRES-Grafik starten. Ein SYS-Aufruf 
setzt den Ausdruck in Gang. 


Eine Hardcopy vom Grafikbildschirm war der Wunsch 
vieler Leser. Nun ist sie da. Die Routine ist in Maschi- 
nensprache geschrieben, damit die Druckerausgabe 
mit annehmbarer Geschwindigkeit vonstatten gehen 
kann. Ein weiterer Vorteil gegenüber BASIC besteht 
darin, daß nichts von dem ohnehin geringen Speicher- 
platz des C16/116 verlorengeht, verbleiben doch im 
Grafikmodus nur mehr etwa zwei KByte für BASIC- 
Programme. 

In der Folge werden wir auch Hardcopies für weitere 
Druckertypen veröffentlichen und die Bedienung et- 
was komfortabler gestalten, nämlich Ausdruck auf 
Knopfdruck. In der vorliegenden Fassung wird, noch 
etwas umständlicher, mit einem SYS-Aufruf hantiert. 
Wenn Sie diesen Aufruf nicht bereits in Ihrem Pro- 
gramm vorsehen, müssen Sie es mit Hilfe der STOP- 
Taste unterbrechen. 

Betätigen Sie bei gedrückter STOP-Taste zusätzlich 
den Resetknopf, landen Sie im Monitor, den Sie wie- 
der mit X und RETURN verlassen können. Dieses 
Verfahren hat den Vorteil, daß Sie nicht blindlings 
versuchen müssen, die Umschaltung in den Textmo- 
dus oder den SYS-Aufruf ohne Sichtkontrolle einzu- 
geben. Im Textmodus, in den Sie auf diese Weise si- 
cher gelangen, geht dies nämlich viel besser. 

Da der Inhalt des Grafikbildschirmes nicht verloren- 
geht, läßt er sich, selbst, wenn auf dem Textbild- 
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schirm etwas anderes zu sehen ist, noch ausdrucken. 
Nach einem SYS 1525 können Sie das Ergebnis 
bewundern. 


HIRES-HARDCOPY 


18 rem hires hardcopy==========6.16 <pi> 
28 rem (p) comodore welt team <co> 
3O rem ==================22======== cng> 
48 rem (c) by alfons mittelmeyer <cg> 
58 rem <pd> 
68 rem c16/116/plus4 <kb> 
78 rem und commodore-drucker <ma> 
88 rem aufruf mit sys 1638 <po> 
98 rem =====================2===== Cjg> 
188 fori=1815t019876 <dh> 
118 reada:pokei,a:next <ne> 
128 fori=1638t01777 <hd> 
130 reada:pokei,a:next <gp> 
148 data 138,872,198,216,208,817 <di> 
158 data 169,856,924,181,214,133 <ch> 
168 data 214,169,881,101,215,133 <kj> 
17@ data 215,162,008,134,216,238 <dj> 
188 data 214,288,802,230,215,184 <ko> 
198 data 178,096, 162,882,181,2088 <hk> 
208 data 149,211,202,816,249,896 <pk> 
218 data 162,082,181,211,149,214 <mj> 
228 data 292,816,249,096, 162,882 <al> 
238 data 181,214,149,288,202,B16 <ag> 
248 data 249,096 <id> 
250 data 169,004, 162,004, 168,255 <bh> 
268 data 932, 186,255,832, 192,255 <1f> 
278 data 162,884,832,201,255,169 <ne> 
288 data 888,032,210,255, 169,255 <ap> 
298 data 133,219,169,032, 133,289 <1g> 
308 data 169,088, 133,208, 169,088 <pi> 
318 data 133,218, 169,228, 133,217 <fg> 
328 data 832,823,884,832,033,084 <nj> 
338 data 160,807,032,247,083,136 <11> 
348 data 2808,250,032,843,004,832 <fo> 
358 data 833,084, 169,840, 133,218 <io> 
368 data 162,000, 160,000, 177,214  <Iıf> 
378 data 149,220,932,247,8083,232 <ik> 
388 data 224,887,208,242, 168,008 <pj> 
398 data 162,887,022,220,042,202 <fo> 
488 data 816,258,889,128,837,219 <me> 
418 data 032,210,255,136,208,238 <1d> 
428 data 165,211,824,185,888, 133 <nl> 
430 data 211,144,002,230,212,832 <ec> 
448 data 833,804,198,218,208,282 <ch> 
458 data 169,913,832,218,255,238 <oc> 
468 data 217,848,169,169,143,133  <bl> 
478 data 219,165,217,248,161, 169 <ma> 
488 data 815,832,210,255,032,204 <bk> 
498 data 255,876, 195,255 <no> 
S88 rem ========================== mp> 
Sidrem programmende <hf> 
528 rem ====================2====2= cm> 
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SDEPOFT EEE DEIN mE. 


Laufend berichten die 
verschiedenen Medien 
vom Auftauchen unter- 
schiedlich harmloser 
oder gefährlicher Com- 
puterviren. Da dieses 
Programmierkunststück- 
chen gedankenloser 
Hacker immer mehr um 
sich greift, wollen wir 
Ihnen ein paar Tips ge- 
ben, wie Sie Ihre Daten 
vor der Zerstörung schüt- 
zen können. 

Ein Computervirus ist ein 
sich selbst verbreitendes 
Programm, analog dem 
biologischen Virus ist es 
ohne einen Wirt nicht 
fähig, sich zu vermehren. 
Es benötigt dazu einen 
Computer und ein ande- 
res Programm. 


BHP-VIRUSS _ _ 
BESONDERS LÄSTIG 


Der von der „Bayrischen 
Hackerpost“ entwickel- 
te und verbreitete BHP- 
Virus, der unter den C64- 
Usern grassiert, ist ver- 
gleichsweise harmlos, des- 
halb aber nicht weniger 
lästig. Er begnügt sich da- 
mit, sich zu vermehren, 
ohne die Programme di- 
rekt zu zerstören. Er wird 
für 10 Mark verkauft 

oder unter Computer- 
Freunden spaßeshalber ° 
weitergegeben. 

Als „Medikament“ gegen 
seine Verbreitung wird 
von verschiedenen Anbie- 
tern bereits ein Virenkil- 
ler-Programm angeboten, 
das verseuchte Disketten 
vom Virus befreien soll. 
Ein solches Programm 
kann natürlich nur einen 
ganz bestimmten Schäd- 
ling erkennen oder besei- 
tigen. Bereits kleine Ände- 
rungen im Virus-Programm 
machen den Killer wie- 
der zahn- und wirkungslos. 


Wie funktioniert ein 
Computervirus? 

Damit er sich vermehren 
kann, muß der Virus sich 
auf der Diskette vor ei- 
nem Programm festset- 
zen. Dabei wird das Dis- 
ketten-Inhaltsverzeichnis 
manipuliert, damit nicht 
gleich auffällt, daß das 
Programm verseucht ist. 
Beim BHP-Virus ist ein 


ist 


Ihr 


Computer 
auch 


schonkrank? 


Viren unbekannter Herkunft nagen an Ihrem wert- 
vollen Programmbestand. Die wildesten Gerüchte sind 
im Umlauf. Ist die millionenfache Verbreitung noch 
aufzuhalten, sind schon Mittel und Wege zur Abwehr 

dieser Computerschädlinge gefunden? Hier einige 
Tips & Tricks zum Vorbeugen und Verjagen. 


Programm durch einfa- 
ches Listen als infiziert 
zu erkennen. Die erste 
Zeile lautet nämlich: 


1986 sys peek(43)+peek 
(44)*256+48: virus 


Erst nach dem Starten 
des Programms wird es 
gefährlich. Jetzt ver- 
schwindet der Virus in 
den Untergrund und 
zwar unter den I/O-Be- 
reich ab $D000. Gleich- 
zeitig wird er RESET- 
fest gemacht und verän- 
dert einige Systemvekto- 
ren. Dadurch wird er 
beim Laden eines Pro- 
grammes aktiv. 

Das Verseuchen einer 
Diskette geschieht also 
nicht, wie oft vermutet, 
beim SAVE-Kommando, 
sondern beim Laden ei- 
nes beliebigen Programms. 
Auf diese Weise fällt die 
Aktivität des Virus-Pro- 


Das Wort Viren treibt so man- 
chen Computeranwender den 
Angstschweiß auf die Stirn. 
Denn diese kleinen Lebe- 
wesen treiben es ganz schön 
bunt mit ss manchem 
Programmbestand. 


gramms erst dann auf, 


wenn es bereits zu spät ist. 


Schäden durch Viren- 
Programme 

Was kann ein solches Pro- 
gramm anrichten? Die. 
meisten harmloseren ver- 
brauchen nur Speicher- 
platz. Der BHP-Virus 
zum Beispiel benötigt je- 
desmal, wenn er sich vor 
ein Programm setzt, et- 
wa 8 KByte. 

Bei häufigem Gebrauch 
von infizierten Disketten 
kommt ein enormer Spei- 
cherplatzverbrauch zu- 
stande. Es gibt jedoch we- 
sentlich gefährlichere 
Viren-Programme. 


FESTPLATTEN 
STARK GEFÄHRDET 


Diese können auf Fest- 


platten oder gar in großen 
Datenbanken unersetzli- 
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che Daten vernichten. 
Spätestens hier hört der 
Spaß auf, und die Krimi- 
nalität beginnt. 

Besonders gefährdet sind 
die teueren und benut- 
zerfreundlichen Compu- 
ter, die ein im Boot-Sek- 
tor gekennzeichnetes Pro- 
gramm beim Einschalten 
automatisch laden. Hier 
hat ein Virus-Programmie- 
rer ideale Hardware-Vor- 
aussetzungen, um einen 
Virus in das System einzu- 
schleusen. Das gleiche gilt 
für Autostart-Programme. 


Erkennen von infizierten 

Disketten 

Da ein Virus Platz benö- 

tigt, muß er sich irgend- 

wie feststellen lassen. Da- 
für gibt es prinzipiell zwei 

Möglichkeiten: 

1. Das infizierte Programm 
erscheint im Directory 
um den Virus verlängert. 

2. Das Directory wurde 
verändert, so daß die 
angezeigte Länge mit 
der tatsächlichen origi- 
nalen Programmlänge 
nicht mehr überein- 
stimmt. 

Im ersten Fall muß die 

tatsächliche Programm- 

länge bekannt sein, um 
die Veränderung zu be- 
merken. Im zweiten Fall 
hilft nur ein VALIDATE 
und rechnen. 

Stimmt nach dem VALI- 

DATE die Summe aus 

der Anzahl an freien und 

belegten Blöcken nicht 
mit den möglichen frei- 
en Blöcken nach dem 

Formatieren überein, so 

liegt der Verdacht nahe, 

dafs ein Computer-Virus 
zugeschlagen hat. 


Hygiene ist der beste 
Schutz 

Wer nur eigene Program- 
me verwendet, braucht 
sich über Computerviren 
keine Gedanken zu ma- 
chen. Besonders gefährlich 
sind hingegen Public- 
Domain-Programme und 
Raubkopien. Es kursie- 
ren Gerüchte, wonach so- 
gar Profi-Programmierer, 
die sich darüber ärgerten, 
daß mehr Schwarzkopien 
als Original-Programme 
im Umlauf sind, selbst in- 
fizierte Raubkopien ver- 


DL ___ a 


reitet haben, um den 

Schwarzkopierern eines 

:uszuwischen. Wer frem- 

“2 Software verwendet, 

Allte einige Sicherheits- 

-geln beachten: 

‘. Fremde Disketten un- 
tersuchen. Laden Sie 
ein Programm nach 
dem anderen und listen 
Sie es, um verräterische 
SYS-Befehle zu finden 
(ein Virus-Programm 
ist immer ein Maschi- 
nenprogramm). Diese 
Programme vorher 
nicht starten! Vorsicht 
vor Programmen, die 
nachladen. 


. Fremde und eigene Dis- 
ketten stets trennen. 
Nicht wegen der An- 
steckungsgefahr, son- 
dern wegen des besse- 
ren Überblicks. 


3. Nach Verwendung von 
fremden Disketten den 
Computer ‚‚desinfizie- 
ren“, also ausschalten. 
Sicherheitshalber auch 
die Diskettenstation 
ausschalten, da es auch 
floppy-resistente Viren 
gibt. 

4. Wenn möglich, machen 
Sie sich von wichtigen 
Programmen eine 
Sicherheitskopie auf 
Band. 

Datasettenbenutzer sind 

vor Viren so gut wie si- 

cher. Uns ist bisher 

kein Virus bekannt ge- 

worden, der auch bei Da- 

tasettenbetrieb wirksam 

wäre. Hier kann der Vi- 

rus sich nicht unkontrol- 

liert ausbreiten, da er 
sich nur beim Abspei- 
chern des Programms, 
mit dem er eingeladen 
wurde, wieder mitabspei- 
chern kann. 

Sicherheitshalber sollten 

Sie bei verdächtigen Pro- 

grammen den Computer 

immer ausschalten, bevor 

Sie andere Programme 

mit Ihrem System kopie- 

ren. 

Also Finger weg von Dis- 

ketten unbekannter Her- 

kunft und undurchsich- 
tigen Inhalts, es könnte 
ein Virus darauf sein. 

Safety first und keine 

Angst vor den bösen 

Hackern. 


Rudolf Schmid-Fabian 


KOMPRESSOR 
CW SPEZIAL 5/88 


Inzwiscnen ist es gelun- 
gen, kleinere Programme 
zu komprimieren. Bei 
größeren geht’s nicht. 
Was muß man ändern, um 
zum Beispiel Mystika, ein 
sehr langes Programm, 

zu komprimieren? 

Peter Bieger, 
Himmelpforten 


Im BASIC-Kompressor 
kommen zwei Dimen- 
sions-Anweisungen vor. 
Damit durch leere Daten- 
felder nicht zuviel vom 
geringen Speicherplatz ei- 
nes nicht erweiterten 
C16/116 verbraucht wird, 
wurde als maximale Zei- 
lenzahl des zu komprimie- 
renden Programmes der 
Wert 300 voreingestellt. 
Dies geschieht in Zeile 
210 mit mz=300. Besitzt 
das BASIC-Programm 
eine höhere Zeilenanzahl, 
so braucht nur mz ent- 
sprechend angepaßt zu 
werden. 


DEUTSCHE UMLAUTE 


IN DER PLUS4-DATEI- 
VERWALTUNG 


... Jetzt habe ich zwar 


auch hier Umlaute, aber 
dafür neue Probleme: 
Wenn ich mir Etiketten 
ausdrucken lasse, haut 
mir der Drucker (MPS 
1000) manchmal Leer- 
zeilen dazwischen, die 
ich nicht eingegeben ha- 
be. Diese Leerzeilen wer- 
den in unregelmäßigen 
Abständen mitten in den 
Adreßfiles ausgegeben, 
was sich gerade bei Eti- 
ketten sehr ungünstig aus- 
wirkt. Am Plus4 kann es 
nicht liegen, da ich mei- 
nen zur Zeit in Repara- 
tur habe, und der, den 
ich mir geliehen habe, 
auch Leerzeilen bringt. 
Liegt es am Drucker 
oder am Programm? Als 
ich die Umlaute noch 
nicht verwendete, ist mir 
dieser Fehler noch nicht 
aufgefallen. 

Michael Weidmann, 
Berlin 


Es freut uns zu hören, 


daß unser Zeichensatz- 
programm auch mit einem 
Commodore-Drucker, der 
einen deutschen Zeichen- 
satz besitzt, sogar in Ver- 
bindung mit der Plus4- 
Dateiverwaltung funktio- 
niert. Daß dadurch un- 
motivierte Leerzeilen zu- 
standekommen, konnten 
wir allerdings nicht be- 
obachten. 

Beim Nachvollziehen des 
Etikettenausdrucks stie- 
ßen wir allerdings auf Un- 
genauigkeiten im Plus4- 
Software-Handbuch. Im 
Text auf Seite 210 wird 
geraten, die NEXTPAGE- 
Anweisung gleich im An- 
schluß an die PAPER- 
SIZE-Einstellung vorzu- 
nehmen. Auf dem Bild- 
schirmabdruck ist diese 
jedoch erst in der letzten 
Formatzeile zu finden, 
Unten auf Seite 211 heißt 
es gar, daß die beiden 
NEXTPAGE-Anweisun- 
gen nicht fehlen dürften. 
Ob deutscher Zeichensatz 
oder nicht, bei NEXT- 
PAGE nur am Anfang 
frat nach einer gewissen 
Anzahl von Zeilen der von 
Ihnen geschilderte Fehler 
auf, bei NEXTPAGE am 
Ende dagegen nicht, 

oder war es etwa umge- 
kehrt? Eine der drei an- 
gesprochenen Versionen 
führt bestimmt zum ge- 
wünschten Ergebnis. 


FEHLER BEI 
READ-ANWEISUNGEN 


Ich habe den Checksum- 


mer aus Heft 10/87 ein- 
gegeben. Dieser läuft je- 
doch nicht, obwohl kein 
Eingabefehler vorliegt. 
Der C16 steigt immer aus 
bei der Zeile 

240 fori=312 to 386 
:readx:pokei,x:next 

mit Fehlermeldung 14: 
illegal quantity error in 
Zeile 240. 


Können Sie mir mitteilen, 
warum, und was ich än- 
dern muß? 

Harald Banghard, 
Laufenburg-Binzgen 


Mit einer solchen Fehler- 
meldung mag schon man- 
cher schwer zu kämpfen 
gehabt haben. Auch wer 
eine solche Zeile tausend- 
mal überprüft, vermag 
keinen Fehler zu entdek- 
ken, denn der ist ganz wo- 
anders zu suchen: Wenn 
die READ-Anweisung 
beim Lesen von Datas, 
statt auf eine Zahl, unver- 
sehens auf einen Text 
stößt, ist es schon ge- 
schehen. Es fragt sich nur, 


wo. 
Ein kleiner Trick hilft 

oft weiter: Wollen wir 
beobachten, wo das Pro- 
gramm abstürzt, können 
wir dies durch eine PRINT- 
Anweisung erreichen, die 
wir nach dem READ-Be- 
fehl einfügen. Unsere ur- 
sprüngliche Zeile wan- 

deln wir am besten so ab: 


240 fori=312 to 386: 
readx.printx,:pokei, 
xınext 


Die eingelesenen Daten 
werden nun auf den Bild- 
schirm ausgegeben. Das 
dem zuletzt sichtbaren 
Zeichen folgende DATA 
ist der Schwarze Peter. 
Der braucht aber noch 
lange nicht an allem 
schuld zu sein. Eventuell 
haben wir bereits vorher 
durch fälschliche Auslas- 
sungen oder Hinzu fügun- 
gen dafür gesorgt, daß der 
READ-Befehl nun auf et- 
was stößt, das zu diesem 
Zeitpunkt gar nicht für 
ihn vorgesehen war. In 
diesem Falle kann uns 
nur noch der Vergleich 
der DATAs auf dem Bild- 
schirm mit denen im Heft 
einen Aufschluß geben. 


Haben Sie Fragen? 
Commodore-Welt 


Postfach 1161 
D-88044 Lohof 
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BREPORT EEE NENNEN EEZ 


Die meisten Computerfreaks beschäftigen sich 
neben der Lektüre von Fachmagazinen und Büchern 
bisweilen auch mit etwas leichterer Kost in Form 
von Filmen, die sich mit dem Computer beschäftigen. 
Da es in solchen Produkten meist mit erheblichem 
Hang zu Klischees und übertriebenen Utopien 
zugeht, nahmen wir einmal — zur Information für 
Sie — die Produktion eines Filmes mit dem Schwer- 
punkt Computer unter die Lupe. 


Filme wie Wargames der 
L.1.S.A. dürften den mei- 
sten unserer Leser be- 
kannt sein. Hauptgegen- 
stand dieser Spielfilme 
war — wie auch in ande- 
ren Werken — der Com- 
puter. Doch zumeist nei- 
gen solche Streifen zu 
übertriebenen Utopien 


MEHR SCIENCE- 
FICTION ALS 
REALITÄT 


und tendieren mehr zur 
Science-fiction als zur 
Realität. 

Um so mehr wurde unser 


Interesse von einer Presse- 


information aus den Ba- 
varia Filmstudios ge- 
weckt. Quasi vor unserer 
Haustür fanden die Dreh- 
arbeiten zu einer sechs- 
teiligen Kriminalserie für 
das deutsche Fernsehen 
statt, deren Hauptgegen- 
stand das Thema Compu- 
terkriminalität ist. Wir 
wollten hinter die Kulis- 
sen sehen und feststellen, 
wie solche Filme über- 
haupt zustande kommen. 
In Gesprächen mit Schau- 
spielern und Produzent 
sowie der Besichtigung 
von Kulisse und einem 
der Drehorte informier- 
ten wir uns vor Ort. 

Die Serie wird voraus- 
sichtlich Ende des Jahres 
unter dem Titel Bastard 
im deutschen Fernsehen 
ausgestrahlt. Es ist die 


Geschichte eines Compu- 
terfreaks, der sich auf 
eine Baleareninsel zurück- 
gezogen hat und dort 
Spiele programmiert. Auf 
seinen nächtlichen Reisen 


VERBRECHER- 
ORGANISATION MIT 
DATENBANK 


in internationalen Daten- 
netzen verfängt er sich in 
den Maschen einer Daten- 
bank, die offensichtlich 


von einer weltweit operie- 
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renden Verbrecherbande 
benutzt wird. Solch bö- 
se Bits bringen den 
Herrn wieder ins Alltags- 
leben zurück, und er 
widmet sich der Verbre- 
chensbekämpfung. Um 
diesen Anfang rankt sich 
dann die gesamte Hand- 
lung. 

Das Grundproblem eines 
solchen Filmes sieht Pro- 
duzent Peter Bradatsch 
darin, daß zum einen die 
Technik zwar wahrheits- 
getreu, zum anderen aber 
möglichst effektvoll in 


UND PIEPEN MUSS 
ER AUCH 


Szene gesetzt werden soll. 
So sollen Zuschauer, die 
mit dem Medium Compu- 


a 
N 


Oben: Der Dar- 
steller der Titel- 
rolle, ein echter 
Bastard, wird 
von seinen 
Kollegen ver- 
wöhnt. 


ter vertraut sınd, keine 
unmöglichen Techno- 
Märchen aufgetischt be- 
kommen. Andererseits 
müssen aber von der Ma- 
terie Unberührte von der 
wundersamen Computer- 
welt gefesselt werden. 
Auf der einen Seite also 
die nüchterne Realität ei- 
nes ganz normalen Perso- 
nal Computers, auf der 
anderen einen blinken- 
des und piependes Et- 
was, welches mit der ei- 
gentlichen Realität nichts 
mehr zu tun hat. 

Um hierbei nicht allzu 
sehr auf das Niveau von 
Filmen wie Wargames zu 
sinken, bediente man sich 
bei der Produktion von 
Bastard eines Programmie- 
rers, welcher durch Bera- 


neinDazRcPORTE 


tung und Entwicklung 
geeigneter Programme 
möglichst sämtliche Belan- 
ge unter einen Hut brin- 
sen sollte. Bradatsch 
meint, so das Problem in 
den Griff bekommen und 
eine gewisse Ausgewogen- 
heit erreicht zu haben. 
Der Kompromiis besteht 
beispielsweise in einem 
realitätstreuen Terminal- 
programm, welches aber 
dem besseren Effekt zu- 


BERATUNG DURCH 
PROGRAMMIERER 


liebe mit überdimensio- 
naler Schriftgröße und 
piependem Bildschirmauf- 
bau versehen wurde. Vom 
breiten Publikum wird 

ein Computer anschei- 


nend nur dann als ein sol- 
cher erkannt, wenn er 
kräftig Laut gibt. Freaks 
mögen es dem deutschen 
Fernsehen verzeihen. 
Interessiert hat uns auch 
ein weiterer Aspekt: Wie 
sieht es mit Unterstützung 


UNTERSTÜTZUNG 
VON HERSTELLERN 


seitens der Computerher- 
steller aus? Wohl jeder as- 
soziiert inzwischen das 
neumodische Wörtchen 
Product Placement, wenn 
beispielsweise Schiman- 
ski im Tatort sehr aus- 
führlich ein Hustenbon- 
bon zu Munde führt. 
Ähnlich verhält es sich 
auch im Bereich der Ge- 
räte-Ausstattung, wobei 


Oben: Gudrun 
Landgrebe und 
Peter Sattmann. 
Links: Alle 
Darsteller der 
Fernsehserie 


Sparmaßnahmen aller- 
dings im Vordergrund 
stehen und die daraus 
resultierende Werbung in 
Kauf genommen wird. 
Schließlich wäre auch der 
Zuschauer, der letzten 
Endes die Requisiten mit 
seinen Gebühren bezahlt, 


SPARMASSNAHMEN 
IM SINNE DES 
ZUSCHAUERS 


unzufrieden, wenn bei 
den Produktionen ein 
sechsstelliger Betrag für 
technische Kulissen ausge- 
geben würde. Auch bei 
Bastard war es so: Man 
wandte sich an drei große 
Hersteller — welche, wer- 
den Sie im Herbst selbst 
sehen — von PCs, die 


prompt zusagten und die 
Produktion mit der not- 
wendigen Hardware ver- 
sorgten. 

Darüber hinaus gab es 
aber auch noch Rat und 
Hilfe vor Ort. So sorgte 
beispielsweise die Bild- 
wiederhol-Frequenz von 
sechzig Hertz eines PC 
für Probleme bei den Auf- 
nahmen: Ein unschöner 
Streifen wanderte über 
den Schirm. Jeder, der 
schon einmal versucht 
hat, ein Bildschirmfoto 
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zu machen, kennt die Bal- 
ken, die entstehen, wenn 
die Belichtungszeit zu 
kurz ist. Und Filmen ist 
schließlich nichts anderes 
als Fotografie in Serie, 
Um dies zu beheben, wur- 
den flugs einige Techni- 
ker der betreffenden Fir- 
ma eingesetzt, um den 
Rechner mit einer ande- 
ren Grafikkarte auszurü- 


TECHNISCHE 
PROBLEME MIT 
GRAFIKKARTE 


sten. Gratis und mit Freu- 
den, versteht sich, denn 
die Firma hatte schließ- 
lich kein Interesse an 
wandernden Bildern. 
Die Sparsamkeit in der 
Requisite ermöglichte 
vielleicht die ausgezeich- 
nete Besetzung des Fil- 
mes. Peter Sattmann 
spielt die Hauptrolle, je- 
nen ausgestiegenen Pro- 
grammierer und DFÜ- 
Freak. Für ihn ist der 
Computer nichts Neues. 
Er sei schon seit Jahren 


ECHTE 
STARBESETZUNG 


durch mehrere private 
Rechner damit vertraut, 
erklärt er. Aus der 
Sammlung hat er den 
Apple zum Lieblingsspiel- 
zeug erkoren. 

Ein Bonbon für die Foto- 
grafen war natürlich 
Gudrun Landgrebe. Als 
Lisa Pallmann darf sie 
dem Kämpfer um Com- 
puter-Gerechtigkeit zur 
Seite stehen. Weitere 
Rollen wurden mit Heinz 
Reincke und Dieter Krebs 
besetzt. 

Zusammen mit dem Re- 
gisseur Ulrich Stark geht 
also keine unbekannte 
Truppe ans Werk. Mit ei- 
ner Ausnahme allerdings: 
dem Bastard. Das Hunde- 
Viecherl, das der Serie 
den Namen gab, nennt 
sich im Film Diddle und 
heift in Wirklichkeit 
Hexie. Es ist eben alles 
nur Schein beim Film, 
doch auch hier wieder mit 
einer Ausnahme: der 
Bastard ist tatsächlich 
einer. TSD 


rt u u 


Nobody is perfect 


Der Teufel 


steckt 
im Detail 


Niemand ist gegen Fehler gefeit, die sich 
hartnäckig in den Programmen festsetzen und auch 


Anwender mit ruhiger Natur zur Explosion bringen. 
Hier hilft nur stetige Fehlersuche, auch in einem 


„fertigen’’ 


Rüdiger Valk, Informatik- 
professor an der Universi- 
tät Hamburg, befafste 
sich in der Süddeutschen 
Zeitung mit der Frage 
nach der Leistungsfähig- 
keit der Computer und 
ihrer Programme und un- 
tersuchte die Vertrauens- 
würdigkeit der Systeme. 
Sein Fazit: Sie sind 
„schneil, genau und fehl- 


Es waren zwar damit 
Großrechneranlagen ge- 
meint, die einem Einper- 
sonenhaushalt eine 
13000-Mark-Stromrech- 
nung schicken oder von 
einem Dreijährigen den 
Führerschein (für seinen 
Tretroller?), einziehen 
wollen, oder einen 80- 
jährigen zur Bundeswehr 
berufen. Dies ist auf den 
ersten Blick vielleicht 
noch lustig, aber wenn 
Computer mit ihrer Fehl- 
barkeit Menschenleben 
gefährden, wie bei einem 
Flugzeug oder gar einem 
Atomkraftwerk, dann spä- 
testens hört der Spaß auf. 
Aber ohne rechnerunter- 
stützte Systeme sind vie- 
le Bereiche des täglichen 
Lebens längst nicht mehr 
denkbar. 


FEHLERFREIE 
PROGRAMME 
MÖGLICH? 


Die in der COMMODORE 
WELI und COMMODORE 
WELT SPEZIAL abge- 


Programm. 


druckten Programme ge- 
fährden hoffentlich nie- 
manden, aber es ist trotz- 
dem lästig oder gar ärger- 
lich, wenn die mühevoll 
eingetippten Programme 
nicht das gewünschte Er- 
gebnis erzielen. Auch für 
uns, mit Verlaub, gilt: 
Nobody is perfect. Auf 
dem langen Weg vom Pro- 
grammautor, Redakteur, 
drucktechnischen Herstel- 
ler, bis zu Ihnen, dem Le- 
ser, sind einige Fallstricke 
eingebaut, über die auch 
wir manchmal stolpern. 
Trotz vieler Sicherheits- 
vorkehrungen rutschen 
auch den Korrektoren 
Fehler durch die Finger. 
Zum Beispiel bei einem 
Spiel, bei dem in der 
99, Spielstufe, wenn die 
Konstellation Weihnach- 
ten auf Ostern fällt, ein 
Hund den Radfahrer in 
Peking beißt und dieser 
vom Pink Panther verhaf- 
tet wird, — dann passiert 
ein glatter Ausstieg ins 
RAM/ROM-Nirwana, 
dann ist jeder wie auch 
immer geartete Test über- 
fordert, wenn diese Feh- 
ler in einer Wahrschein- 
lichkeits-Konstellation 
von nicht nennbarer Grö- 
ße auftritt. 


FEHLERQUOTE: 
0,02 PROMILLE 


Ein 50-KByte-Programm, 


das die Eingabe von mehr 
als 500000 Zeichen erfor- 
dert, ist nach Eingabe oh- 


ne Kontrolle und Korrek- 
tur garantiert nicht lauf- 
fähig. Denn nur 0,01 Pro- 
zent Fehler, oder gar 
0,02 Promille Fehler, das 
sind fünf beziehungsweise 
ein möglicher Tippfehler, 
können das Programm 
zum Absturz bringen. Mit 
Eingabehilfen wie Check- 
summer ist die Fehler- 
quote fast auf Null zu re- 
duzieren, das heißt natür- 
lich nur, wenn das Origi- 
nalprogramm in Ordnung 
ist. 

Hier eine kleine Zusam- 
menstellung einiger Pro- 
gramme, die in der 
COMMODORE WELT 
oder in einem SPEZIAL 
erschienen sind und bei 
denen der Computer-Feh- 
lerteufel zugeschlagen 
hatte. 


COMMODORE WELT 
SPEZIAL 1/88 Seite 20 


TEXT C16 


540 printb2$’PLZ” 
b2$’Ort‘'b4$b4$;: 


inputc$ <gj> 


Alle Zeilen, die eine 
PRINT#-Anweisung ent- 
halten, sind wichtig für 
Steuerung des Druckers 
und müssen auf die Codes 
eingestellt sein, die der 
angeschlossene Drucker 
auch versteht. Manche 
brauchen zur Erkennung 
von Steuercodes immer 
ein vorangestelltes 
ESCAPE. Dies ist der 
Code CHR$(27), vor den 
folgenden Befehlscode, 
um druckbare Zeichen von 
Steuercodes zu unter- 
scheiden (siehe Tabelle 1). 


COMMODORE WELT 
SPEZIAL 5/88 Seite 61 
MYSTIKA ADVENTURE 
2660 ifri< >Dorog< >0 


thenan$="'wie bitte !!’ 
:g0t0190 <oj> 
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COMMODORE WELT 
SPEZIAL 5/88 Seite134 


MENSCH ÄRGERE 


DICH NICHT 
nn a 
nich <cce> 


Unbedingt das letzte 
Space nach den drei Punk- 
ten nicht vergessen, da 
sonst am Bildschirm die 
ganze Grafik verschoben 
wird. Die Zeile ist im ab- 
gedruckten Programm 
zwar richtig, aber auf 
Grund vieler Anrufe ha- 
ben wir hier eine mögli- 
che Fehlerquelle entdeckt. 


COMMODORE WELT 
SPEZIAL 5/88 Seite 48 


WOLFSOFT-DATEI 


3120 x$=z3$:m=35: 
gosub3880:printx$ <dj> 


Es wurde eine falsche 
Sprungadresse benutzt, 
die zu einem Verschieben 
der Bildschirmausgabe 
führte. 


COMMODORE WELT 
SPEZIAL 4/87 Seite90 


JOHN BEND DETEKTIV 
2570 pokezn,12:pokezs, 


22:5ySX 
2580 er 11:pokezs, 


30:5 
2625 print A Bantäu” 
:printec$:end 


Nach erfolgreicher Erle- 
digung des Auftrages und 
der Belobigung durch 
Mr. Q ist das Game in 
Zeile 2625 zu Ende. Dies 
wurde in der abgedruck- 
ten P4-Version vergessen. 
Die Zeilen 2570/2580 
verhindern jetzt das Ver- 
schieben der Grafik bei 
einer — jetzt richtigen — 
Zeile/Spalte Angabe. 


COMMODORE WELT 
SPEZIAL 3/88 Seite 135 


BOOT 
130 char,O,z,d$:poke239, 


ee ____ bean 


TABELLE 


ec$ 
chr$(15) 
chr$(52) 
chr$(88); 
chr$(01) 
chr$(14) 
chr$(87); 
chr$(00) 
chr$(80) 
chr$(69) 
chr$(70) 
chr$(20) 
chr$(65); 
chr$(n) 
chr$(45); 
chr$(01) 
chr$(83); 
chr$(01) 
chr$(84) 
chr$(18) 
chr$(74); 
chr$(n) 


Zeile 390 
Zeile 400 ec$ 
Zeile 410 ec$ 


Zeile 610 
Zeile 620 ec$ 


Zeile 630 ec$ 
Zeile 640 ec$ 
Zeile 750 ec$ 
Zeile 660 

Zeile 680 ec$ 


Zeile 690 ec$ 
Zeile 760 ec$ 


Zeile 780 ec$ 
Zeile 790 
Zeile 800 ec$ 


Angaben für Mannesmann Tally 85 


7:1=1319 

140 poket,145:poket+1, 
145:poket+2,13:poket+3, 
147:poket+4,82:poket+5, 
213:poket+6,13 


Die verwendeten Codes 
in Zeile 140 sind: 
145 CURSOR UP 
13 RETURN 
147 SCNCLR 
82 Zeichen GE) 


213 Zeichen CHR$(213) 
SHIFT U 


COMMODORE WELT 
SPEZIAL 2/88 Seite 48 


IMPRESSUM 
COMMO- 
DORE- 

SPECIAL 


erscheint sechsmal jährlich 
in der CA-Verlags GmbH 
(i.G.) 


VERANTWORTLICH 
FÜR DEN INHALT: 
Alfons Mittelmeyer 


Schmalschrift ein 
Kursivschrift ein 


String für ESCAPE CHR$(27) 
(Compressed) 
(Italic im High Memory) 


= Schönschrift ein (NLO) 

= Breitschrift ein (Enlarged) 
= Breitschrift aus (Enlarged) 
= Elite aus PICA ein 

= Fettdruck ein “ (Enhanced) 
= Fettdruck aus (Enhanced) 
= Breitschrift aus (Enlarged) 


Unterstreichen ein 


Tiefstellen ein 
Tiefstellen aus 
Schmalschrift aus 


UNI-DATEI II 


Korrektur 1 

99 fast:fori=.t09:a$=a$ 
+z1$+21$+21$+21$+z1$ 
+z1$+z1$+z1$:nexti: 
md%=20:dima(md%),a$ 
(md%):window...,78, 


<m 
100 bank15:5ys4924: 
sys4864: printcel$c4$rn 
$bI$a$:sys52332,,22,. 
:printa$.f%=8:f$="'0" 
:9%=4:g0osub1610:color 
6,1:90t01660 <nn> 
1000 ifa$=x1$anda<na 
—990t01070:elseifa$= 


REDAKTION UND 
STÄNDIGE MITARBEITER: 
Peter Basch, Harald Beiler, 
Rosemarie Huber, Lothar 
Miedel, Michael Reppisch, 
Rudolf Schmid-Fabian, 
Torsten Seibt, Hermann 
Wellesen, Bernd Welte 


a> 


GESCHÄFTSFÜHRER 
(und verantwortlich für 
Anzeigen): 

Werner E. Seibt 


ANSCHRIFT FÜR ALLE 
VERANTWORTLICHEN: 
Postfach 1107, 

8044 Unterschleißheim 


Zeilenabstand auf n/72 Zoll 


Papiertransport n/216 Zoll 


n=Obis 85 


(Underlining) 


(Subscript) 
(Subscript) 
(Compressed) 


n=0O bis 255 


ec$anda> 10g0t01 100 
<hh> 


1740 sys4888,ze,ze:b= 
len(a$):printc!$x2$s1$ 
Ig$tab((80-b)/2)a$wh$; 
:g0oto1610 <fh> 
60030 x1$=chr$(010) 
:x2$=chr$(011) <I> 


Korrektur 2 

440 printcl$:cIr:dima$ 
(20) ,a(20):f%=8:f$=''0" 
:9%=4:restore1900:read 
ad,ze:gosub1 740 <be> 


Um einen einwandfreien 
Ablauf des Programmes 
zu erreichen, tippen Sie 


Tel.: 089/129 80 11 

Telex: 5214428 cav-d 

Es gilt Preisliste N. 8 vom 
1.1.1988 

Media-Unterlagen bitte 
anfordern. 

© 1988 by CA-Verlags GmbH 
(i.G.), Heßstraße 90, 

8000 München 40. 

SPS und Autoren. Für unauf- 
gefordert eingesandte Manu- 
skripte und Listings keine 
Haftung. Bei Einsendung 
von Texten, Fotos und 
Programmträgern erteilt der 
Autor dem Verlag die Geneh- 
migung für den Abdruck und 
die Aufnahme in den Kasset- 
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bitte die oben genannten 
Zeilen zum Listing dazu 
oder ändern die alten ent- 
sprechend ab. In Zeile 
440 ist unbedingt der Be- 
fehl Bildschirm löschen 
(PRINT CL$) zu ergänzen 


COMMODORE WELT 
SPEZIAL 2/88 Seite 48 


EISENBAHN 64 


1610 ife(i)=2thena=(peek 
(56320)0r128) 

5355 —rc,9,40 

6170 gosub3300 

6171 fori=1t08 

6172 fa(i,2)=0 

6173 next 

6174 —suy,1:—suc,5:—sue 

6179 next 

6180 -suf,0:—suc,1:—suc, 
32:poke198,0 


Die Minuszeichen in den 
Zeilen 5355, 6174 und 
6180 bedeuten den Pfeil 
nach links. 


Die Programme Eisen- 
bahn und Yatzee laufen 
nur wenn vorher das Pro- 
gramm RAND & SPRITE 
gestartet wurde. Bei der 
Eingabe der Programme 
ist darauf zu achten, daß 
zum Beispiel in den Zei- 
len 160/170/210/260 usw. 
bei Yatzee, anstatt des 
IBM-ASCII-Grafikzei- 
chens CHR$(95), der 
Commodore-ASCII-Zei- 
chencode CHR$(95) 
Pfeil-nach-Links eingege- 
ben wird. Das selbe gilt 
für das Spiel Eisenbahn 
im selben Heft. 

Robert Wagner DD 


ten-Service zu den Honorar- 
sätzen des Verlages.und über- 
trägt dem Verlag das Copy- 
right. Alle in dieser Zeit- 
schrift veröffentlichten Bei- 
träge sind urheberrechtlich 
geschützt. Jedwede Verwen- 
durg ist untersagt. Nament- 
lich gezeichnete Beiträge 
unserer Mitarbeiter stellen 
nicht unbedingt die Meinung 
der Redaktion dar. 
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Die Neuauflage des Breakout-Klassikers 
sorgt mit 36 verschiedenen Leveln, 6 
Schwierigkeitsstufen und 2-Spieler-Mo- 
dus (gleichzeitig!) für reichlich Ab- 


wechslung. 


fährlich. 


MAMPIONSHII 


Der Nachfolger des berühmten Kampf- Ya 
und Flugsimulators ACE ist da! Diesmal Par 


Kr 2 .. einem ann Erf a 
_ egeneinander E 4 
u 1 a Ss 


antreten. Nur für PL f 
mit 64 K RAM! . © 
Kassette Diskette 


\ Bitte senden Sie mir 
Ihren aktuellen Katalog 


Meine Adresse 


weiteren 

C-16/116 oder PLUS/A. 
Einfach Coupon ausfüllen, ausschneiden 
und ab die Post an 

KINGSOFT, Grüner Weg 29, 5100 Aachen 


UNDERGROUND 


In einer gigantischen unterirdischen Höhle müssen Sie mit 
ihrem Hubschrauber ein feindliches Kraftwerk aufspüren 
und eliminieren. Aber der Weg dorthin ist lang und ge- 


Kassette 
oder Diskette 


CHAMPIONSHI 


Die einzi rtige Spielesammlung exklusiv für alle Plus/4- 
Besitzer (oder C-16/116 mit 64 K RAM). Nicht weniger als 
6 HEN INURSION Spiele gibt's hier zum Preis von einem: 


umen n 
ten feindlichen Lager auf. bekannten ü 
Ein spannender Kampf- und Fiugsi- Das „klassische” mit 
in 2 Fa 
mulator mit einem Etwas; spielen Sie gegen 
NG und Melissa. 
ratespiel mit ausge- TERRA NOVA 
zeichneter Animation durch flimmer- Vertikal Actionspiel 
Sprites. Sprachausgabe und toller, schneller 
Grafik. 
Kassette oder Diskette 
BRREER 
a Er 
2630] 
. 2 3 rınver 
“8° 
6 % = non 
Ka 
a 


Das neueste Weltraum-Actionspiel von 
Henrik Wening: Immer neue Angreifer 
in immer neuen Formationen erwarten 
Sie. Hier darf nach 
rzenslust gebal- 


Das berühmte Catcher- 
Spiel von EPYX gibt es 
jetzt auch in einer neuen 

ersion für ihren C-16 
oder PLUS/4. Schaffen Sie 
es, ihre furchterregenden 
Gegner „aufs Kreuz zu le- 


Kassette 


u HI 
c-: 
Bl 


Wer kennt sie nicht - die Abenteuer von 
i n =? Endlich können 


„Spion 

auch C-16- und S/4-Besitzer an die- 
sem Spielspaß 

teilhaben. 
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